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RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
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RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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RNOVMS = DSR VMS Command Line Interface ib-se S$ep-1984 7 AX-11 Bliss-32 V4.0-74 Page 1) 
~8ep-1984 atk 38: i RUNOFF .SRC IRNOVMS B32; 9 a) 
nee 001 0 XTITLE 'RNOVMS = DSR VMS C Command Line Interface’ : 
; é 0 : MODULE RNOVMS ( IDENT = ; 
; 0 ADDRESSING. NODE( EXTERNAL=LONG, RELATIVE : 
pa 004 ‘a NONEXTERNAL=LONG RELATIVE ) | : 
ee 096 1 BEGIN 
; | (8 og 1) ; 
3 , 4484 : Fc ceeasaihet coer Coens "fale Cat gf SEM ae ; 
F 1 'e * $ 
ee 011 1 i COPYRIGHT (c) 1978, 1980, 1982, 1984 8 ® : 
; ig Og 1 i DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. * ; 
; 13 0013 is ALL RIGHTS RESERVED. e ; 
> (15 0015 1 i THIS SOFTWARE. Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPED . ; 
; 16 0016 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
i? 0017 1 is LuS!I 4 ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
: #18 0018 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* ; 
on 0019 1 '* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: st it : :s TRANSFERRED. . : 
: ¢ 00 : 1 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; 0023 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
: : Bose : :* CORPORATION. \ : 
> 26 00 $ 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; i 99 i i is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : : 
4 i : 
: ; 5 94 : | paniedinhuibieninetababtnbiinsiadnatimeaabmentenseanbaibiedtnententdenentnen e 
3 1 0031 1: é 
3 ¢ 0082 1 $ 
3 00 1 !e¢ F 
3 4 0034 &. s 
: ; 0035 i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS : 
: i 0037 | ABSTRACT: 
: io i : This module is the DSR VMS Command Line interface module. : 
i 4] 0041 1 | ENVIRGNMENT: VAX/VMS User Mode : 
: ‘§ o4§ : ; AUTHOR: Ray Marshall, CREATION DATE: 23 August 1981 : 
} 
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v04-000 sien History a RUNOFF, BR RCIRNOVMS. B32; : (25 

: ¢$ : RSBTTL "Revision History’ : 
3 rk : MODIFIED BY: : 
; * 1! 026 REM00026 Ray Rerenett Ped be -1984 : 
; > 7 Added a dot to a reference re it s bit 15 set on ; 
3 26 1! the user saying /DEC_ INTERNALS Grbut LINE, UNBER. Dbg2 was . 
; a : oy A Loaded with itS own address! : 
= 1! 025 REM00025 utet Marshall 17-May-1984 . 
| 1! Added parameter a4 pul LINE_NUMBER to Y7DEC INTERNAL. This ; 
3 ef 1! porereeer gk at! of debug flag word number 2. The . 
; 8 1! geen’ ne of is b f is to rore¢ output Line numbers to be put : 
; 1! into the left margin of My ne of text in the output fi : 
; 1! Not isthe Un by any 3 al parameter is but 14 which will : 
s 6) 1! prefix sg Sy ine sr ¥ fh the anteceet sfy*put page number : 
3 6 1! followed a per iod. econd bit will have to be set by : 
3 o : the /DEC_INTER SL eppé2eunego pines : 
; 65 1! 024 REM00024 Ray Marshall 11-April-1984 : 
; & 1! fiche /DEVICE return an error for Tove t¢ entries. ; 
; «667 . 2 Cong] trenes 'ze¢ the DIABLO, FLIP, & VT100 parameters of Pi, . 
> «68 13 /DEVICE qualifier for DSRPLUS only. This way with : 
; @& oe change mentioned in the above entry, they wi { now LF ° 
; 1: errors when given to DSR. : 
; 1! Made some changes towards making the /FORM work better when : 
: 7 1! /SIMULATE isn't specified. ese are sngemevate and mostly : 
Pe 1! commented out for now. The variable to look for to get to : 
F es : } this new work is FORM_QUALIFIER. . 
; . 1! 023 REM00023 Rey Me rshall 24-March-1984 ; 
: ve : Fixed definition o LIBSF IND _FILE_END. : 
: 79 1! 022 REM00022 ay Marshall 15-March-1984 ; 
; & q ! Added logic to int ialize and cloonup for LIBSFIND_FILE. This F 
; 3 7-7 routine is now called from RUNOFF.BLI to support “search-Lists ; 
3 : : as implemented in VMS V4. : 
s 8 1! 021 EM00021 Ray Marshall 5-December-1983 3 
s 83 1! Add NOJLOAD porenster o the /DEVICE qualifier and make it $ 
3 Hy ! related to the LNOICE) parameter. : 
; «68 1! 020 REM00020 Ray Marshall Tesepgenberst965 : 
3 34 1! Increase the logical name buffer size te fr o 256 ¢t 3 
: 1! gc ponmogete the larger file specificat as g VMS ye. 0. : 
2 gg Add (NOJHEADER parameter to the /DEVICE qualifier and make it 3 
; ' related to the LNOICE) parameter. : 
; | 694 1! 019 KAD00019 Keith Dawson 22-Jun-1983 : 
; #695 1! Set bits RNOSV_S_RIGHT and RNOSV_S “DOWN if the qualifiers F 
: 38 } were expl ets given. : 
; 98 1! 018 REMQQO18 Ray y Marshall 24-May-1983 : 
; «2.99 ee Modify exit topic so that one of several calls to RUNOFF : 
: 190 ! returns °. lure, we will also return to VMS with a failure : 
: 102 1/ 3 


status code. 
| 
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017 REM00017 ay Marshall 11-May-1983 
Reppyee he che R or error bari thos the call to RUNOFF. 
s will allow a List of input files to continue bein 
processed one in the middle has errors. 


016 REMO0016 Rey Me Marshall 10-May-1 +4 

Added eh to ys pa ear to purge the user’ } vereing set. 

Removed ° sions 1coe, all Oe ge commands. 

Decondit tonal We the /dEB ae tt E REST wan Pl porenetsr logic to 
allow it to be compiled into DSR as we 

Many omolt changes to the TPARSE SX to Mag fo 
parameter text and report it as . error 

Single character gerene er process for all “character'' 
expect ing qualifiers has on, ~~’ out of the TPARSE tables. 
Now, he parameter str ng ts Vie one (1) character tong. 
that chores cer will be put directly into it's proper resultant 
field and TPARSE will not be called. 

Removed %0, 2D, & %X logic trom 7DEVICE TPARSE tables because 
t was never "used. 


015 KAD00015 Keith Dawson 14-Apr-1983 
Support /DEVICE=FLIP. 


014 KAP90014 Keith Dawson 20-Mar-1983 
Removed vag conditionals and all references to .BIX 
and .BIC files. 
Removed /OVERPRINT 
Changed GCA_FLIP bit to (.gca_op_dev EQL op_dev_flip). 


013 KAD00013 Keith Dawson 07-Mar-1983 
Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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ZSBITL ‘Module Level Declarations’ 


! This literal prevents the new RNODAT from being compiled in. It also 
! prevents any reference to it. 


LITERAL 
NEW_RNODAT_MODULE = 1; ! Allow the new RNODAT. 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 


' DSR VMS command interface routine 
' Causes TPARSE to put data into command table 


rnocli, 
Used by TPARSE to store a DBG1 or DBG2 value 


call_tparse, 
save_value, 
set_output_device_code 


X%IF NEW_RNODAT_MODULE X%THEN , 
rnodat : NOVALUE 

<FI 3 

1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 

: INCLUDE FILES: 

1 

1 LIBRARY ‘SYSSLIBRARY:STARLET'; ! System macros 

1 LIBRARY ‘SYSS$LIBRARY:TPAMAC'; ' TPARSE macros 

1 LIBRARY 'NXPORT:XPORT'; ! XPORT Library 

: REQUIRE "REQ:RNODEF'; ' RUNOFF variant definitions 
: undeclare Zquote $descriptor; 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ZIF DSRPLUS Z%THEN 
Ye *REQ:DPLLIB'; ! DSRPLUS BLISS Library 


ELSE 
,ponnny *REQ:DSRLIB'; ! DSR BLISS Library 
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STRUCTURE 
BBLOCK ([O, P ni’ E; N) = 
6 19 (BBLOCK + 0) <P, S, E>; 
0 12 i MACROS: 
5 031 : 
86 8 14 ! 
87 15 ‘ 
88 ! 
89 1 MACRO ! (n,*text") 
oO 8 CSTRINGL] = ‘XSTRING( XCHAR(XZCHARCOUNT (XREMAINING)) , SREMAINING) %, 
3 ta] 0 string_descr (J = (uplit (%charcount Crenpining) . oe 
G 0321 ch$ptr suet if (Zstring (Xremaining)))))%, 
94 0322 swch_automatic = string_descr("AUTOMATIC') %, 


Define internal descripters 


4 
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7 
RUNOFF ..SRCJRNOVMS .B32; 


Ww 


sc 
sweh_bold = string descr BO 
swoh change = strin 2 


ARS") i, 
swoh_contents = string_descr ) 


B 

NTS’) %, 

("CROSS REFERENCE’) %, 
NTERNAL') 2%, 


- Ore = 


SIZE") %, 


se 
% 
C" INTERMEDIATE) 2%, 
§s 
UT") %, 
i e 
3 
swch_separate = string_descr('S PARAT NDERLINE') %, 
I 
LITERAL 
yes = 1, !' Used to turn indicators on 


swch_index = string_descr(' 


swch_log = string _descr( 
such messages = string_descr 
swch_output = 

swch_pages = string_descr('P 


Mm4mnn ume MSO 8B OZ~Ww 

-> ss 
a 
m 
mn 
~~ 
owe 
>. 


swch_sequence : string _descr('SEQUEN 
EQUATED SYMBOLS: 
no = ! Used to turn indicators off 


swch_simulate string descr(*SIMULAT 
swch_spac ing = string descr ( °NONSPAC 
swch_underline = str Ma. deser’ cen, 
swoh_variant = string_descr('VARIANT' 
0 
Logical_name_buffer_iength = 256; 
SLITERAL ! Literals use 
sv_byte_ value = $D 
sv_dev_Reader 


sv_dev_noheader 
sv_dev_italic 
sv_dev_ landscape 
sv_dev_load 
sv_dev_noload 
sv_dev_portrait 
sv_dev_under line 
sv_di_dog 

sv_di dbge 
sv_output_line_numbe 


SLITERAL 
swcoh_id_automatic 
swoh_id_backspace 
swch_id_bold 

swcoh_id_change 

swch_id_contents 
swch_id_cross_referenc 
swoh_id_dec_internal= 


BIEN SO ODONAUES WN OOONAV EWN (OVO ONOUS 


ispatch within the SAVE_VALUE routine 
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RUNOFF .SRCJRNOVMS .B32; (3) 


: $ 0 1 swch_id_debug = $DISTINCT, 3 
; = swoh_id_device = $DISTINCT, 3 
: 4 § 1 swcoh_id_down = $DISTINCT, ; 
; 5 1 swcoh_id_form size = $DISTINCT, : 
; 6 0384 1 swch_id_ index = $DISTINCT, $ 
; ef 8 5 1 swoh_id_input = SDISTINCT 3 
: 258 $ 1 swch_id-intermediate = SDISTINCT, ; 
; 259 0 1 swch_id_log = $DISTINCT, : 
: 260 0388 1 swoh_id_messages = $DISTINCT, ; 
; 261 0389 1 swch_id_outpu = $DISTINCT, : 
; 26 6390 1 swoh_id_pages = $DISTINCT, : 
; 8 ots swch_id_pause = SDISTINCT, H 
> 264 36 1 swch_id_right = $DISTINCT, ‘ 
; 265 0393 1 swch_id_separate = $DISTINCT, 3 
; 266 0394 1 swoh_id_sequence = $DISTINCT, : 
; gor 0395 1 swoh_id_simulate = $DISTINCT, 3 
; 268 0396 1 swcoh_id_spacin = $DISTINCT, ; 
; 269 0397 1 swoh_id_underline = $DISTINCT, 3 
3; 270 0398 1 swoh_id_variant = $DISTINCT; : 
; 27) 0399 1 : 
; ae 0400 1! : 
= 2 0401 1 ! OWN STORAGE: 3 
3; 274 oh 4 1! : 
: 2r 0405 1 OWN : 
; 276 0404 1 : 
3 err 0405 1 runoff_command : $RNO_CMD, ! DSR command information block : 
; 278 0406 1 swch_id, ! Will contain value assigned to the swch_xxx : 
; e279 0407 1 ! names assigned previously. This is used : 
; 280 0408 1 ! within common routines to know which 3 
; gel 0409 1 ! qualifier is being processed. : 
3 see 0410 1 Ln01_option_used, ! True if an LNO1 option is specified F 
. oe 0411 1 ws_limits :"VECTORC2) INITIAL (O,2X'7FFFFFFF*); ; 
; 284 pels 1 3 
> «6285 0413 1! 3 
; 286 0414 1 ! EXTERNAL REFERENCES: : 
; 287 0415 1! : 
; 288 0416 1 EXTERNAL ROUTINE A 
3 sop Role : RUNOFF , ! Transportable DSR entry point : 
3 $95 0419 1 SYSSPURGWS : ADDRESSING_MODE(GENERAL), ! Purge working set : 
: 35 0420 1 SIF NEW_RNODAT_MODULE ZTHEN : 
; ; 86 1 ! “FI SYSSNUMT IM; : 
3 a 04 4 1 CLISGET_VALUE : ADDRESSING _MODE(GENERAL),  ! Gets switch value $ 
; 296 0424 1 CLISPRESENT : ADDRESSING_MODE (GENERAL), ' Checks for switch 3 
; 297 0425 1 LIBSCVT_DITB : ADDRESSING MODE (GENERAL), ! Converts decimal ASCII string to integer 3 
: 298 O § 1 LIBSTPARSE : ADDRESSING MODE (GENERAL), ' Table driven parser ; 
: 299 4 1 LIBSLP_LINES : ADDRESSING_MODE (GENERAL), ! Get default printer paper Length 3 
; 500 0428 #1 LIBSFIRD_FILE_END : ! NEEDED to free memory used by LIBSFIND_FILE. 3 
; Bt ° ; ' WEAK™ ADDRESSING_MODE (GENERAL); : 
; 08 4351 1 em LITERAL ; 
; 304 U 04 ; 1 ZIF DSRPLUS ZTHEN 3 
; 0g U ? ? ' ge, of*hPuss..factt ity: ' Our facility number : 
; 30 Oe 7m runoff$_facility; !' Our facility number 3 
: 308 436 1 &FI 3 


4 
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; 309 437 1 
3 9 c3 1 } The following system Literals are also used, but defined in STARLET: 
: ig 440 1! ss$_badparam, ' "bad parameter value” 
3 HF ot) } ! stsSk_severe; ! code for SEVERE (or fatal) error status 
: 315 443 1 EXTERNAL LITERAL Value returned by CLISPRESENT 
: 1g 444 1 CLIS_ABSENT ' Qualifier totally absent 
: 3 445 1 CLIS-PRESENT i Present and asserted (on verb) 
: 318 446 1 CLIS"DEFAULTED, i absent, but defaulted in CLD 
3 1? rf ! CLIS_NEGATED, : present and negated (on verb) 
: st bes : ! Additional values for VMS V3.1 or Later 
: 358 451 1 CLIS_LOCPRES : WEAK , ! present and asserted on parameter 
3 $e Bee : CLIS_LOCNEG : WEAK ; ! present and negated on parameter 
: 326 0454 1 EXTERNAL 
; 327 0455 1 Lffctx; ! LIBSFIND_FILE context cell 
: 328 0456 1 
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3 ; ° o3f } XSBTTL "TPARSE state tables’ 

; 3 § 39 } ; Build a (MASK,ADDR) pair for TPARSE bit-mask table entries 

: 334 461 1 MACRO 

; 5 Be8s 1 xmask_Ci,p,s,e] = (1*((p)#(s))) = Sets 72. %, 

; 6 465 1 mask_[ = (0 OR xmask_(ZREMAINING)) %, 

: 7 Beet 1 tpmsk_(o P80 -bese? = mask_(o P s,e) , (base) + ZUPVAL*(o) %, 

; 338 465 1 tpmsk?_(fld,base) == tpmsk_(£FLELDEXPAND(fLd), base) %; 

Bo Red, 

; 4] O468 1 Tables to parse /DEBUG 

: 28 0470 1 $init_state(debug_states,debug_keys); 

Hy see P 0471 1 $state(, 

; 345 P 9844 1 ("ALL', tpaS_exit,,tpmsk_(%F IELDEXPAND(rno$v_deb_cond,0), 

; 346 P 0473 1 ZF LELDEXPAND(rno$v_deb_cond,1), 

3; 347 P0474 1 6,0, runoff command)), 

; 348 P0475 1 (*CONDITIONALS', tpa$_exit,,tpmskf_(rno$v_deb_cond, | runoff_command)), 

; 349 P 0476 1 (*CONTENTS' tpaS_exit,,tpmskf_(rno$v_deb_cont, | runoff_command)), 

; 350 U 0477 1 XIF DSRPLUS XTHEN 

: $2! y oth ‘ ery (*CROSS_REFERENCES' ,tpa$_exit,,tpmskf_(rno$v_deb_cros, | runoff_command)), 

; 328 P 0480 1 (‘"FILES', tpa$S_exit,,tpmskf_(rno$v_deb_files, runoff_command)), 

; 354 P 0481 1 (* INDEX’ tpaS_exit,,tpmskf_(rno$v_deb_index, runoff_command)), 

3 $22 P bree 1 (*SAVE_RESTORE', tpaS_exit,,tpmskf_(rno$v_deb_save, | runoff_command)) 

: 338 ocee ts 

: 38 tH ! ; Tables to parse /MESSAGES 

: 360 0487 1 Sinit_state(messages_states,messages_keys); 

; 361 P 0488 1 $state(, 

3 $¢ P 0489 1 (*OUTPUT’, tpa$S_exit,,tpmskf_(rno$v_msg_out, runoff_command)), 

3; 36 P 0490 1 ("USER', tpaS_exit,,tpmskf_(rno$v_msg_user, |runoff_command)), 

3; 364 P 0491 1 (tpa$_lambda, tpa$_exit,) 

ia BRT 

: 4 Bees } Tables to parse /DEVICE 

; 369 0496 1 S$init_state(device_states,device_keys); 

UR GRE | yaeserssegiian® 

: srplus 

3 Le 0299 ' eri ay LO’, tpa$_exit,set_output_device_code,,,op_dev_diablo), 

: 374 P 264 1 (*LINEPRINTER', tpaS_exit,set_output_device_code,,,op_dev_line_printer), 
: S79 U 208 1 ZIF deret ZTHEN 

; 376 U 05 1 ("Vv 100", tpa$_exit,set_output_device_code,.,op_dev_vt100), 

: 377 y oho : ert (‘FLIP', tpaS_exit,set_output_device_code,,,op_dev_flip), 

; P $06 1 (*LNOT' , tpa$_exit,set_output_device_code,,.op_dev_(n01) 
: 380 P 0507 1 ("LNOTE tpa$_exit,set_output_device_code,,.op_dev_in les, 
; «381 P 0508 1 (*UNDERLINE’, tpa$_exit,save_value,,,sv_dev_underline), 
3 § P 0509 1 (*ITALIC' tpaS_exit,save_value,,,sv_dev_italic), 
; P0510 1 (*PORTRAIT® . tpa$_exit,save_value,,,sv_dev_portrait) 
; 384 P0511 1 ("LANDSCAPE ', tpa$_exit,save_value,.,sv_dev_landscape), | 
; 385 Pe 21¢ 1 ("HEADER' tpa$_exit,save_value,,,sv_dev_header), 
; 386 P0515 1 ("NOHEADER® , tpaS_exit,save_value,,,sv_dev_noheader), | 


Tables to parse /CHANGE BARS, /UNDERLINE_CHARACTER, 
/NONSPATING_UNDERLINE, & /SEPARATE_UNDERLINE. 


or that matter, with the ore’ pertete changes made to routine 


F 
SAVE_VALUE, these tables will handle any qualifier that expects to 


LEAF 


be given a single character or the numeric value representing that 
character. 


] ed 
4 | 
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04- TPARSE state tables 1 30071382 93:59:87 RUNOFF ..SRCJRNOVMS .B32; 8 (4) | v04 

; 387 P0514 1 ("LOAD' tpa$_exit,save_value,,,sv_dev_load), ; 

; 388 P0515 1 (*NOLOAB' tpa$_exit,save_value,,,sv_dev_noload), | $ 

: 389 P 1 1 (tpa$_lambda, tpa$_fail.) | ; 

 B His | oi 

: : 19 ! } Tables to parse /DEC_INTERNAL : 

: 394 521 1 Sinit_state(dec_internal_states,dec_internal_keys); ; 

: 395 P 05 § 1 Sstate(options, ; 

; 396 P be 1 c." cations). : 

: 397 P0504 1 (*6861', dbgl,.,,8v_di_dbg1), ; 

; 398 P : >-% ("DBG2', dbg1.,,,Sv_di_dbg2), : 

; 399 e § 1 (*FLIP* op jons . set output device code. ..op_dev_fl ip) 3 

; 400 P 05 1 (*vT100°, options,set_output_device_code,,,op_dev_vtl 05, : 

: 401 P 0528 1 ("OUTPUT_LINE_NUMBER', options,save_value,,,sv_output_Tine_numbers), : 

; tpa$_lambda, tpa$_exit, ; 
40 P 0529 1 (tpa$_lambda, Epa$_exit,) 

: tba 1 an 

; 405 P 05 § 1 Sstate(, : 

: 406 P 05 1 (* which_base) : 

3 pa$_lambda,tpa$_exit, ; 
407 P 0534 1 (tpa$_lambda, tpa$—exit,) 

eps 8 ee : 

3 state(dbgl, $ 
410 P 05 $ 1 $state(dbg! 

2 es ey ; 

Ae a 0 oe ale | 

3; 415 P b2t§ 1 $state(, 

3 $18 P 0545 1 ."s which_base) 

; 41 P 0544 1 (tpa$_ ex, options, save_value), 

; pa$_lambda,options 
$18 P 326? : st $_lambd tions) 

3 es P pec9 1 Sstate(which_base, 

: 421 p Beee 1 ‘et pe hex_num), 

3 ; P 0549 1 (‘O', oct_num), 

3 P 0550 1 ("D' dec_num), 

: 4 P bees 1 (tpa$_hex optTons,save_value), 

> 425 P 33 (tpa$_lanbda ,opt ions) 

; $ P 0554 1 S$state(hex_num, 

: 8 2. 6D pa$_Rex,options,save_value)); 

: 9 e 28 1 $state(oct_num 

3 : 1 (tpa$_octal,options,save_value)); 

3 1 P 8 1 $state(dec_ num, 

3 ¢ 23 i (tpa$_decimal ,options,save_value)); 

; 61 1 

3 5 6 ' 

: 1 

3 1 

3 1 

: 1 

: 1 

: 1 

: 1 
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SOOO OCOOOOOoOoOoO 
Qe we er er rer weer ere 
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| 
init_state(chars_states,chars_keys); | 
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SE state tables 12-888- 138 9}: 3$: uy RUNOFF .SRCJRNOVMS.B32; i (4 


Sstates, 
chars_which_base,,,,sv_byte_value), 
tpa$_éxit,); 
(tpas_ Lambda, tpa$_fail,) 


Sstate (chars. which base, 


eaf. eos 


chars_hex_num), 
‘Or! chars_oct_num), 
twos chars_dec_num), 
(tpa$_ pos taet, chars_done, save value), 
(tpas_ chars pagne; save value), 


1 

1 

1 

1 

1 

1 

1 

1 

1 

! (tpas_ lanbda, tpa$_Fail 
} $state(chars_hex_num, 
1 

1 

1 

1 

1 

1 

1 

1 


ro a 


paS_hex, chars_done,save_value)); 
$state(chars_oct_num, 
(tpa$_octal, chars_done,save_value)); 

$state(chars _dec num, 

tpa$_decimal, chars_done,save_value)); 
Sstase(chirs zoone. 

pa tpa$_exit,) 
(tpas_lanbda, tpa$_fail,) 


4 
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v04- RNOCLI == Header and local storage 1 300-138 93:39:4 RUNOFF. RC IRNOVMS B32; ° (5) vo4 
: 46 4 1 XSBTTL 'RNOCLI == Header and local storage’ | 
;.¢ 5 1 GLOBAL ROUTINE RNOCLI = :] 
; $70 1 tee $1 
: 471 97 1! sj 
; rt 4 38 i FUNCTIONAL DESCRIPTION: : 1 
; 474 600 1! This routine uses the VMS DCL CLE routines to obtain command 3 1 
; 475 601 1! Line information which is in turn passed to the DSR application | 
; rg ee : in a transportable manner. : 
: 478 rai 1 ! FORMAL PARAMETERS: None | 
; 479 oR? 1! $ 
; 480 6 $ 1 ! IMPLICIT INPUTS: None $1 
: 481 607 1! $1 
; 48 0608 1 ! IMPLICIT OUTPUTS: None g 1 
: 48 0609 1! 3 1 
>; 486 0610 1 ! COMPLETION CODES: 3 1 
; 485 0611 1! 3 | 
; 486 pole 1! completion code from DSR ‘3 
: 487 0613 1! $s 1 
: 488 pele 1 ! SIDE EFFECTS: None *| 
3; 489 15 1 !-- 3 1 
; 490 pois 1 S| 
; 491 61 BEGIN | 
:; 49 0618 =» 
; 49 0619 LOCAL 3 1 
: 494 bese desc ! Descriptor work area for translating #'s 3 1 
; 495 0621 SSTR_DESCRIPTOR(CLASS=DYNAMIC), 3] 
: 496 Bose 2 flag_state, ! Presence/absence implicit/explicit of /FLAG | 
; 497 062 status, ! Temporary routine completion code 3 1 
: 498 0624 exit_status ! Final status for return to VMS 3 1 
3; 499 0625 form_qualifier, ' Used to save the status of /FORM 3 | 
: 500 0626 2 temp; ! Real temporary storage! : | 

3 1 

» 3 

3 1 

3 | 

¢ 1 

3 1 

= 4 

eB 

' | 

s | 

eS 


4 
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vo~000 RNOCLI == Initialicee on 1 ~Sep-19 4 93539:4% ERUNOFFOSRE RNOVMS .B32; v04 
; 50 627 ZSBTTL ‘RNOCLI <= Initialization’ 31 
: 308 628 8 A“ ete 4 
; Se 4 } Misc. internal initalization : ' 
3 06 6 1 ; Initialize the DSR command block. : \ 
; $08 ? § SSTR_DESC_INIT( DESCRIPTOR = desc, CLASS = DYNAMIC); ; ! 
: at 635 exit_status = %x'10000001'; ' initial ize to normal return status. 31 
; 213 6 $ ! Bit # 28 is also set to prevent VMS 3 1 
3 \¢ 06 ! from outpytting any exit message on 3 1 
: a7 ? 4 ! our behalf. : ! 
; ei? eek Lffctx = 0; ! Initialize the LIBSFIND_FILE context cell ; ! 
EG ak WHILE CLISGET_VALUE (sweh_input,desc) : } 
; 519 0654 BEGIN 31 
; 520 0645 : 1 
3 321 0646 4 BEGIN 3 1 
; 2 § Reet : MAP runoff_command : VECTOR; : 
: 526 649 4 INCR index FROM 0 TO RNOSK_CMD_LEN / XUPVAL = 1 DO 71 
3 32 0650 4 runoff_commandl.index] = false; 31 
s 326 0651 END; 3 1 
: 527 0653 , : 1 
; 528 065 runoff_commandC(RNO$C_UNDERLING] = 2X'FF'; 3; 1 
: 3% oess 3 | 4 
: 531 0656 i Complete the DSR command block (RNOCMD) from the information returned by :1 
: RG 8822 : the DCL CLI. : : 
: 534 0659 i NOTE : Some RNOCMD fields are set by qualifier action routines. 71 
: 33g oeel 3 3 
: 537 P 066¢ $STR_DESC_INIT( DESCRIPTOR = runoff_command[RNOST_INPUT), i 
: ea8 $66? CCASS = DYNAMIC); : ! 
; 278 +984 SSTR_COPY(STRING = desc, TARGET = runoff_command(RNO$T_INPUT] ); 3 ' 
; 248 P 0667 $STR_DESC_INIT( DESCRIPTOR = runoff_command(RNO$T_OUTPUT), 31 
3 a7 bees CCASS = DYNAMIC); . 
: 545 67 SSTR_DESC_INIT( DESCRIPTOR = runof#_command(RNO$T_INTERMEDIATE), 3 
; 278 44 CCASS = DYNAMIC); : 
: 548 P 067 SSTR_DESC_INIT( DESCRIPTOR = runoff _command(RNO$ST_PAGES), 3 | 
; 208 rR CCASS = DYNAMIC); 3 
; 551 P 067 $STR_DESC_INIT( DESCRIPTOR = runoff_commandCRNOST_VARIANT), 71 
3 338 O67 CCASS = DYNAMIC); : 
: 554 P 067 SSTR_DESC_INIT( DESCRIPTOR = rumoff_command(rno$t_drop_rec), 3: | 
: $36 Oe 9 CCASS = DYNAMIC); : 
: 5 P 06 SSTR_DESC_INIT( DESCRIPTOR = runoff_command(rno$t_program_name], 7 
s 338 6 CCASS = DYNAMIC); s | 


RNOVMS = DSR VMS anend Line Interface Sep-1 2:36:17 AX-11 Bliss-32 V4.0-74 Pp RNC 
RNOCLI <= Initializatio 16- sen 1984 HS an CHM teeta tee ae ee a? § vol 
684 

P oe 5 SSTR_DESC_INIT( DESCRIPT OR = runoff _command(rno$t_program_filename], 
8 § CCASS = DYNAMIC); 


—* se et ee ee 
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v04- RNOCLI == /AUTO /CROSS /BACK /PAUSE /SEQ /SEQ / 1 30071382 94:59 :u7 RUNOFF, RC IRNOVMS.B32; to22 aD vOé 
64 Oe9 RSBTTL *"RNOCLI == /AUTO /CROSS /BACK /PAUSE /SEQ /SEQ /SIM /LOG' 
0 Pickup switch settings and setup command table accordingly 


i 

i 

; Process switches without values: /CROSSREF /AUTOMATIC | 

: /BACKSPACE /PAUSE /SEQUENCE 

: /SIMULATE /LOG 

XZIF DSRPLUS XTHEN 
temp = cli$present(swch_cross_reference); 


SELECT .temp OF 
SET 


SS eee SS 


CCLIS_NEGATED, CLIS_PRESENT, CLIS_LOCPRES, CLIS$_LOCNEG] : 
runoff command(rno$v_s_cross_reference] = true; 


CCLIS_ABSENT, CLIS_NEGATED, CLIS_LOCNEG] : 
runoff_command[rno$v_cross_reference] = false; 


CCLIS_DEFAULTED, CLIS_PRESENT, CLIS_LOCPRES) : 
runoff_command(rno$v_cross_reference] = true; 


WN CO DONOULSWN—OOW 


TES; 
temp = cli$present(swch_automatic): 
SELECT .temp OF 

SET 


SSVSSRESS oon 


runoff_command(fno$v_s_automatic] = tr 


CCLIS_ABSENT, CLIS_NEGATED, CLIS$_LOCNEG) : 
runoff_command[rno$v_automatic] = false; 


CCLIS_NEGATED, CLIS_PRESENT, CLIS_LOCPRES, CLIS_LOCNEG] : 
ue; 


AIS WN © OONAUE WN 9 ODNOAU EWN CO OONOUS Win — 


CCLIS_DEFAULTED, CLIS_PRESENT, CLIS_LOCPRES) : 
runoff_command[rno$v_automatic] = true; 


cccccccccccccccccceccccccccccecccecceccecce 
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600 

601 

o0e 

60 7 

604 8 TES; 

605 3 2F I 

o08 4 , temp = cli$present(swch_backspace) ; 

608 7 SELECT .temp OF 

609 733 SET | 
610 734 | 
611 735 CCLIS_ABSENT, CLIS_DEFAULTED) : 

616 r § runoff_command[rno$v_s_backspace] = false; 

614 O78 CCLIS_NEGATED, CLIS_PRESENT, CLIS_LOCPRES, CLIS_LOCNEG) : 

oi? S44 runoff_command(rno v_S_backspace = true; 

619 741 CCLIS_ABSENT, CLIS_NEGATED, CLIS_LOCNEG) : 
618 ree runoff_command[rno$v_backspate] = false; 

619 74 

620 744 


CCLIS_DEFAULTED, CLIS_PRESENT, CLIS_LOCPRES) : 


Mm 4 
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v04-000 RNOCLI == /AUTO /CROSS /BACK /PAUSE /SEQ /SEQ / 1 ~8ep-19 4 93:59:u7 RUNOFF .SRCJRNOVMS .B32; . (7) 

; 6 1 Ort? runoff _command(rno$v_backspace] = true; ; 
2 en rs 7 
OMS sens GLI9orpvtow hon : 
3 emp = cli$present(swch_log); : 
: 636 0750 . 
s Ger Pe) SELECT .temp OF : 
; 628 07 ¢ SET : 
; 629 075 : 
; 630 0754 CCLIS_ABSENT, CLIS_DEFAULTED] : ; 
; oa! bre? runoff _command[rno$v_s_log] = false; : 
H o38 ope9 CCLIS_NEGATED, CLIS_PRESENT Cl 1S LOCPRES. CLIS_LOCNEG) : : 
: oes br 38 runof f_command(rno$v_s_log = true; ‘ 
; 636 0760 CCLIS_ABSENT, CLIS_NEGATED, CLIS_LOCNEG) : : 
: $3 4 runoff_command[rno$v_log] = false; : 
; 639 ores ; CCLIS_DEFAULTED, ChIS PRESENT . CLIS_LOCPRES] : 3 
; 640 0764 runoff command[rno$v_log] = true; : 
: 641 0765 : 
> 64 0766 TES; 3 
; 64 0767 $ 
> 644 0768 temp = cliS$present(swch_pause); F 
; 645 0769 3 3 
; 646 0770 ; SELECT .temp OF : 
; 647 0771 SET : 
; 648 4 ; 3 
> 649 077 CCLIS_ABSENT, CLIS_DEFAULTED) : ; 
; $20 Bree 3 runoff_command[=rno$v_s_pause] = false; : 
; 652 0776 : CCLIS_NEGATED, CLIS_PRESENT, CLIS_LOCPRES, CLIS_LOCNEG) : ; 
3 oe? 14h ; runoff_command(rno$v_s_pause] = true; : 
; 655 0779 CCLIS_ABSENT, CLIS_NEGATED, CLIS_LOCNEG) : : 
: 636 0730 : runoff_command[rno$v_pause] = false; : 
; 658 4-14 CCLIS_DEFAULTED, CLIS_PRESENT, CLIS$_LOCPRES] : ; 
; 659 078 runoff_command(rno$v_pause] = true; : 
; 660 0784 : 
: 661 0785 TES; : 
; 66 0786 ! : 
; 66 0787 temp = cli$present(swch_sequence) ; : 
3; 664 gree : 
; 665 789 SELECT .temp OF 3 
; © 0790 SET : 
3; 66 0791 : 
; 668 16 CCLIS_ABSENT, CLIS_DEFAULTED) : : 
: 669 79 runof f_command[rno$v_s_sequence] = false; : 
; 670 794 : 
3; 671 795 3 
: of 736 runoff_command(fno$v_s_sequence] = true; : 
3; 674 as CCLIS_ABSENT, CLIS_NEGATED, CLIS LOCNEG) : : 
; of t444 runoff_command[rno$v_sequencé] = false; : 
s; oF 0801 CCLIS_DEFAULTED, CLIS_PRESENT, CLIS_LOCPRES) : : 


CCLIS_NEGATED, CLIS_PRESENT, CLIS_LOCPRES, CLIS_LOCNEG) : 
| 
| 


RNOVM RNOVMS = DSR VMS Command Line Interface 1386 9}: 39: 7 AX-11 Bliss-32 V4.0-74 4 
v04-0 RNOCLI == /AUTO /CROSS /BACK /PAUSE /SEQ /SEQ / | b-sep-1 4 RUNOFF .SRC RNOVMS: B32; 


B08 runoff _command(rno$v_sequence] = true; 
TES; 
temp = cli$present(swch_simulate); 
SELECT .temp OF 
SET 
CCLIS_ABSENT, CLI$ ih gy : 
runoff_command(rno$v_s_simulate] = false; 


CCLIS_NEGATED, CLIS_PRESENT, CLIS$_L se CLIS_LOCNEG] : 
runof f_commandlrno$v _s_Simulate) = true; 


CCLIS_ABSENT, CLIS_NEGATED, CLI$_LOCNEG) : 
runotf_command(rno$v_simulate] = false; 


CCLIS_DEFAULTED, CL1s. PRESENT . $_LOCPRES] : 
runoff _command rno$v_simulate] = true; 
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TES; 
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MS = DSR VMS Command Line greerrece 
LI == /OUTPUT /INTERMEDIAT 


ZSBTTL "RNOCLI == /OUTPUT /INTERMEDIATE' 


Z1F NOT 


WAWNAAANAAANAAANAAWNAAAANANANA NAAN ANWNWI NANA NNN 


1 
1 


sow 
's 
mw 
aow 
vv 


Process switchs yf oS be files: (gyreur / INTERMEDIATE 
a file(s) Ccurrently identif 

ast. 

temp = cli$present(swch_output); 
First, initialize all flags affected by this switch: 
runoff_command(rno$v_s_output] = false; 

runof f_command rnosv .ourpul = false; 
runoff_command(rno$v_quick] = 


SELECT .temp OF 
SET 


false; 


CCLIS_NEGATED, CLIS_PRESENT, CLIS_LOCPRES, CLIS_LOCNEG] : 
runoff_command(fno$v_s_outputJ] = true; 


CCLIS_NEGATED ae ee : 
runoff_command(rno$v_quick] = true; 


CCLI$_PRESENT, CLIS_LOCPRES 
DSRPLUS %THEN » CLIS_DEFAULTED %F]I J 3 
runoff_command(rno$v_output] = true; 


CCLIS DEFAULTED, CLI$_PRESENT, CLI$_LOCPRES] : 
cTi$get_value(swch_output, runoff_command(rno$t_output)); 


TES; 
temp = cli$present(swch_intermediate); 
SELECT .temp OF 
SET 
CCLIS_NEGATED, CLIS_PRESENT, CLIS$_LOCPRES, CLIS_LOCNEG) : 
runof f_command(rno$v_s_intermediate = true; 


CCLIS_DEFAULTED, Ch 18 PRESENT. CLIS_LOCPRES] : 
runoff_command(rno$v_intermediate) = true; 


CCLIS$ Ber MA TEP. CLIS_NEGATED, CLIS_PRESENT, CLI$ a CLIS_LOCNEG) : 
cTi rno$t_intermediate)); 


get_value(swch_intermediate,runoff_command 
TES; 


“1986 3:08:54 ERUNOFFeSR 


ed as INFILJ will be processed 
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RNOVM RNOVMS = DSR VMS Command Line Interface 152 p-1984 AX-11 Bliss-32 V4.0-74 
v04-000 RNOCLI == /CHANGE /UNDER /SEPARATE /NONSPACING 12: =3ep- 1382 rity 35; i RUNOFF SRE RvoVMS 65004 


H oH oer) pearte *RNOCLI == /CHANGE /UNDER /SEPARATE /NONSPACING' 

; sat 0 i Process switches passing ASCII characters: /CHANGE BARS 

: 036 i /UNDERLINE_CHARACTER /SEPARATE_UNDERLINE FRONSPACING UNDERLINE 
: ee ORr t Lis t(swoh_change) 

; emp = cli$present(swch_change); 

: 236 0878 9 

ae 879 SELECT .temp OF 

; te 0880 SET 

: 759 0881 

: 760 bees CCLIS_ABSENT, CLIS_DEFAULTED] : 

: fol tt runotf_command[rno$v_s_change) = false; 

; 0885 CCLIS_NEGATED, CLIS_PRESENT, CLI$_LOCPRES, CLIS_LOCNEG) : 
: 764 0886 runoff _command( rno$v_ 5 _changeJ = true; 

3 76> 0887 

: 766 0888 CCLIS_ABSENT) : 

: rer BaeR runoff _command( rno$c change) = %X'FF'; 

; 769 0891 CCLIS_NEGATED, CLIS_LOCNEG] : 

; 770 0892 4 BEGIN 

s i 0895 4 runoff spemmend, Freee change] = 0; 

a 3 0894 4 paer., ~command(rno$v_change] = false; 

; gr 0895 

3 774 0896 

s 0897 CCLIS_DEFAULTED, CLIS_PRESENT, CLIS_LOCPRES] : 

3; 0898 4 BEGIN 

3; 777 0899 4 mete command(rno$v_change] = true; 

s Tre 0900 4 swch_id = swch_id_change; 

3; 779 0901 4 IF cTi$get_ valle(Sweh achange desc) wen 

; 780 0902 4 IF .desclstr$h_length] EQL 

s fel 0903 4 runoff _command va y eh y? CHSRCHAR(.descCstr$a_pointer)) 
; fe 0904 4 LSE 

; «78 0905 4 

: 784 0906 6 ( IF NOT (status = call_tparse( desc 

3: 785 0907 6 anere ot 
: 786 0908 6 

3; 787 U 0909 6 THEN RETURN (ZIF DSRPLUS aTHEN: dsrptuss facility 
: 788 0910 6 ZELSE runoff$_facility %FI “16 
: «789 0911 6 OR ss$_badparam 

; 790 Oats 5 R stsS$k_severe) ) 

: 791 0913 5 

; 79 Bate 4 LSE 

; 79 915 4 runoff_command(rno$c_change] = %C'!'; 

RB BEG ¥ 

3 a4 Bots Z OTS PTL MaL TED, CLIS_NEGATED, CLIS_PRESENT, CLIS_LOCPRES, CLIS_LOCNEG) : 
; 798 0920 4 runoff_command(rno$v_chng_char] = true: 

; 799 88 1 4 IF .runoff =command) rose. change) EQL 0 THEN 

; 800 9 § & runof f_-command(rno$v_change) = false; 

; 801 9 END; 

3 4 924 

: 80 925 TES; 

: 804 926 

; 805 927 temp = cli$present(swcoh_underline); 
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R JSEPARATE. /NONSPACING 16- se0-1944 9h: 38:8 sha 


v04-000 RNOCLI == /CHANGE /UNDE RUNOFF. BR CJRNOVMS .B32; (9) v04 
3 B06 9 8 

; 4 i 4 { First, initialize all flags affected by this switch: 

: 598 931 runoff _command(rno$v_s qunder Line] . B no 9s, 

: 10 9 § runof f~command([ rno$v_ pom et he, gly 

3 ae 2 ? runoff-command[rno$v_und_char] = Ai poy 

: i§ 9 5 SELECT .temp OF 

: Bis 0939 wot 

: 816 0938 CCLIS_NEGATED, CLIS_PRESENT, CLIS_LOCPRES, CLIS$_LOCNEG] : 

: aif +584 runoff _command(rno$v_ s _under line = true; 

: 819 0941 CCLIS DEFAULTED, CLIS_PRESENT, CLIS_LOCPRES) : 

: Bg 44 4 BEGIN 

; 821 0943 4 runoff aconmends faery. undechars = ¢ = rues 

3 Bs¢ 0944 4 runoff command(rno$v_und_char 

; § 0945 4 IF cliSget.. value(swef_u nagri ine, Pris THEN 

> 824 0946 4 IF .deSc(str$h_ lohe th { THEN 

; HH bf 4 : runoff _command[(rno$c_underline] = CHSRCHAR(.desc(str$a_pointer)) 

: 827 0949 5 BEGIN 

; 828 0950 5 swch_id = swch_id_underline; 

; 829 0951 6 IF NOT (status = Call_tparse( desc 

E See b23¢ ? chars. “go ig 

: B3¢ u 0954 6 THEN RETURN (ZIF DSRPLUS efnen “asrptuss facilit 

s 8s 0955 6 ZELSE $_facility %FI *16 

3 6834 0956 6 OR ss$ Sedparen 

; 835 0957 6 OR sts$k_severe) 

; 836 0958 5 END 

3; 837 0959 4 

; 838 0960 4 runoff_command(rno$c_underline] = %C'_'; 

; 839 0961 4 

: 840 0962 3 END; 

3; «841 0963 3 

: 842 0964 3 TES; 

> 843 0965 

; are 3444 temp = cli$present(swch_separate); 

: 846 0968 3! First, initialize all flags affected by this switch except for the 

$ otf 043 ! underline character flag: 

: 849 971 runoff Command rnogv_ s_und_sep r = false: 
3 S20 bey runof f-command( rno$v_und_seépar false; 
: 85¢ 0974 SELECT .temp OF | 
3 B34 348 SET 

: 55 97 CCLIS_NEGATED, CLIS_PRESENT, CLIS os ee CLIS_LOCNEG) : 4D 
; 36 444 runof f_command[fFno$v_s _und _separ true; 
: 58 980 CCLIS_DEFAULTED, CLIS_PRESENT, CLIS_LOCPRES) : 
3 59 981 4 BEGIN 

3 0 9 § 4 runof f_command([rno$v_und_ sep ne) = true; 

; 861 9 4 runof f~command[ rno$v_un dr tin = true; 
: 2 984 4 runof f~command[ rno$v_und_ chart = true; 
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$82 


887 


$38S883 


Sass 
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RNOCLI == /CHANGE /UNDER /SEPARATE /NONSPACING 14-Sep-1 v04 
985 4 IF cli$get_v Luetaueh seperate -feec) THEN 
9 § & IF sdesct strsh_ Leh th] EQL Ly 
2 2 ase’ f commandirno$c_underline] = CHSRCHAR(.desc(str$a_pointer]) 
9 5 2 BEGIN 
990 swch_id = rowan ag | getees: 
991 6 IF NOT (status = Call_tparse( desc 
336 6 -chars_states 
838 6 chars_keys) ) 
994 6 THEN RETURN (ZIF DSRPLUS STHEN dsrplus$_ facility 
995 6 ZELSE runoff$_facility %FI “16 
99 OR ss$_badparam 
99 OR stsSk_severe) 
0998 END 
0999 4 LSE 
1000 4 runoff _command(rno$c_underline] = %C'-'; 
i'd ND; 
100% — 
bt temp = cli$present(swch_spacing); 
1909 ! First, initialize all flags affected by this switch except for the 
1308 : underline character flag: 
1010 runoff_command(rno$v_s_und_nonsp] = false; 
ot) runoff_command(rno$v_und_nonsp) = false; 
1918 SELECT .temp OF 
1015 
Its CCLIS_NEGATED, CLIS_PRESENT, CLIS_LOCPRES, CLIS_LOCNEG) : 
iit runoff_command[(rno$v_s_und_nonsp] = true; 
1019 CCLIS_DEFAULTED, CLIS_PRESENT, CLI$_LOCPRES) : 
1020 4 BEGIN 
1021 4 runof f_command rnosy und nenep, = true; 
1958 4 runoff_command(rno$v_underline] = true; 
1025 4 runoff _command(rno$v_und_char] = true; 
1024 4 IF cli$get_value(sweR_spacing,desc) THEN 
1025 4 F .desc(str$h_lergth] EGC 1 THEN 
1958 ? runoff. commandtrno$c_under line] = CHSRCHAR(.desc(str$a_pointer]) 
1 BEGIN 
1 § : swch_id = swch_id_underline; 
1030 6 IF NOT (status = Call_tparse( desc 
1031 6 -chars_states 
1038 3 THEN RETURN (ZIF DSRPLUS 4THEN dsepte ; facilit 
srplus 
1034 6 TELSE runotfS facility £F1 “16 
1035 6 OR ss$_badparam 
19 § g ion OR stsSk_severe) 
1038 & LSE 
1039 4 runoff_command(rno$c_underline] = 7; 
He ; ND; 
1041 
| 


R 
R 
1 
1 
1 
1 
1 
1 
1 


FS 
HANGE FUNDER JSEPARATE SAGNSPACING 1onSebelone $$i09:s4 


TES; 


Freeh ere t-temmandRNOSC UNDERLINE) EQLU 2X'FF* 


ge not tcommendCRNOSC_UNDERL INE) = no 
runoff command(RNO$V_UND_CHAR] = yes; 


0-74 
-B32; 
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RNOCLI == /PAGES /VARIANT “Sep-19 RUNOFF .SRC JRNOVMS .832; 
XSBTTL *RNOCLI == /PAGES /VARIANT' 
: Process switches passing ASCII strings parsed by DSR: 
/PAGES /VARIANT 
temp = cli$present(swch_pages); 
SELECT .temp OF 
SET 


VFWN—OO° 


wOOOOOOOOOOVNOO 


ENT 
AULTED, CCI$S PRESENT, CCI$_LOCPRES 


FCLIS_A8 
CLI$ 
C et_value(swch_pages,runoff_command 


a5 NT, CLI$ mecarer CLIS_LOCNEG) : ai. 
Ti$g rno$t_pages)); 
TES; 
temp = cli$present(swch_variant); 
SELECT .temp OF 
SET 
ABSENT, CLIS_NEGATED, CLI$_LOCNEG) : false; 


CLI$ 
ECLIS-DePAUL feb. CCIS_ PRESENT, CCI$_LOCPRES) : 
cTi$get_value(swch_variant,runo?f_command(rno$t_variant]); 


Se ee Se Ge Fe Se Ge Ge Se Se Se Se Ge Ge Se Se Se Ge Se Ge Se ee Se ee SH Bee 
_ 
a kk a dd dt 


PISWN 0 OODNOAUE WN —-OOONOUES Wr" O0 


TES; 


Sl 
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yoe~000 RNOCLI == /BOLD /DOWN PRIGHT 132308=1 382 94:59:u7 RUNOFF ..SRC JRNOVMS .832; 
: g $ ! 76 SSBTTL *"RNOCLI == /BOLD /DOWN /RIGHT' 
; 8 : 4 i Process switches passing numeric arguments: /BOLD /DOWN /RIGHT 
3 44 : ? temp = cliSpresent(swch_bold); 
: 96 1 SELECT .temp OF 
ee fii 
: 965 1085 CCLIS_ABSENT] : 
: 3e8 19 $ runoff_command(rno$h_bold] = 1; 
; 968 1086 CCLIS_NEGATED, CLIS_LOCNEG] 
: 3 1050 runoff_command rno$h_bold] = 0; 
: 971 1091 CCLIS$ Hits the CLIS_PRESENT, CLIS_LOCPRES) : 
. 1936 IF cli get.velue(Such_bold.desc) THEN 
; 97 1 & GIN 
; 974 1094 4 status = LibScvt_atb(.desc(str$h_length] 
; or? bat ? goons str$a_pointerd, 
; emp); 
3 OF 1999 4 runoff_command{rnosh_bold] = ,temp 
: 3h5 1099 $ : 
: 980 1100 runoff_command(rno$h_bold] = 1; 
; 981 1101 
2 ie ws 
; oae 119¢ temp = cliS$present(swcoh_down); 
; 986 1106 SELECT .temp OF 
Bs 2 
: 989 1109 CCLIS_ABSENT, CLIS_NEGATED CIS LOCNeG. : 
; 390 1110 runoff_command(rno$h_down) = 0; 
: 99 N16 ; CCLIS_DEFAULTED, CLIS_PRESENT, CLIS_LOCPRES) : 
5 eer att? i IF cUiSget_value(Such down. desc) THEN 
: 995 1115 4 status = L1OSevt_stOt.desch seren_ length) 
> 99% 1116 4 .desclstr$a_pointerd, 
3; 997 1117 4 temp); 
: 998 1118 4 runoff_command(rno$h_down] = .temp 
1060 1120 3 ELSE. 
; 1001 + 1 runoff_command(rno$h_down) = 5; 
F 1008 11 : CCLIS_NEGATED, CLIS_LOCNEG, CLIS_PRESENT, CLIS_LOCPRES] : 
3 1004 1124 runoff_command(fno$v_s_down] = true; 
: 1005 1125 
188 sin 
; 1908 i 8 form_qualifier = cli$present(swch_form_size); 
; 1010 1130 SELECT .form_qualifier OF 
3; 1011 1131 SET 
3; 1012 1132 
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1 == /BOLD /DOWN /RIGHT ety 7 9}: 35; i RUNOFF’ SRe ROVE B3oe 


CCLIS_ABSENT] : 
runoff “command(rno$h_ form_size] = Lib$lp_lines(); 


CCLIS_NEGATED, CLI$_LOCNEG) : 
runoff _command Fno$h_ form. size] = 0; 


CCLI$ it; LTED, CLIS_PRESENT, CLIS_LOCPRES) : 
IF ¢ Soet. _value(Swoh_ form, size;desc) THEN 


“hee 
status = LibScvt_dtb(. sdeseCstrsa- Length] 
-desc(str$a “pointers, 


ed ae 


DONA VNE WN" OOONOUSw 


cunert. command(rno$h_ nag size] = . temp 


SE 
BEGIN 
runoff_command(rno$h_form size] = Lib$lp_lines(); 
; fora. qualifier = CLIS_ABSENT ' §0°/DEV works right. 


TES; 
temp = cliSpresent(swch_right); 
SELECT .temp OF 

SET 


ober step sive the 


pn ww ee ofa foleololojelolololelelelelelelelolelelolo) 
PRPEX_EQD GAA & BE BEE PAIN 


a a a ak a tk at a a a a a ts Ls a — 9 — 9 — is 2 as as — bd 2 — 9 9) 4 4) ss 
a a ed a ta at a st a ta 2b ss a a a te tt 


PAA AAA BBE & AAA AANA BB PAB BB BB EAI 


39 CCLIS_ABSENT, CLIS_NEGATED CL1S.L0 nee 
re runoft f_command[ rno$h_righ 
ek CCLIS_DEFAULTED, CLIS_PRESENT, CLIS_LOCPRES) : 
et o IF ¢ elie et. _value(Swoh_right,desc) THEN 
045 65 status = LibScvt_dtb(.desc(str$h_length] 
peg 68 -desc str$a “pointerd, 
048 a4 ff dfrnosh_tightd = .t 

runo ommand(rno$h_r = .tem 

049 69 ND . ey 
050 70 
B3 4 runoff_command(rno$h_right] = 5; 
$33 8 CCLIS_NEGATED, CLIS_LOCNEG, CLIS_PRESENT, CLIS_LOCPRES) : 
054 74 runoff_command(rno$v_s_right] = true: 
$36 Re TES 
$89 r§ 2 
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38 
s 


ZFI *16 
OR ss$ bedperen 
oe OR stsSk_severe); 


IF . form qualifier EQL puts ABSENT THEN ! If we used [,J6SLP_LINES 
IF ‘runoff_command 1 


SSLESRANLS 


rno$v_4_out_format] EQL op_dev_in 
-runoff_command(rno$v_4_out_format] EQL op_dev_(n0le 


WN —O OONOUES WN OOONOUES WN -O0O® 


runoff_command(rno$h_form_size] = 255 
ELSE 


; 1998 17 XSBTTL "RNOCLI == /DEBUG /DEVICE /MESSAGES /DEC_INTERNAL' 

; 1061 1180 Process switches passing Lists of arguments: hg /DEVICE /MESSAGES 
: ! ¢ 13 1 /DEC_INTERNAL 
3 He: 1 ae temp = cliSpresent (swoh_debug); 

: 1908 1} 5 First initialize all bits that can be set by this qualifier: 

3 1908 Hae runoff _command([rno$v_deb_cond] = false; 

: 1069 1188 runoff_command(rno$v_deb_cont] = false; 

; ony Bf runoff_command(rno$v_deb_files] = false; 

3 1071 1190 runof f_command( rno$v_deb_index] = false; 

; O76 1191 runoff_command(rno$v_deb_cros] = false; 

3; 107 1136 runoff_command(rno$v_deb_save] = false; 

3; 1074 119 

3; 1075 1194 SELECT .temp OF 

: 1076 1195 SET 

3; 1077 1338 

3; 1078 119 CCLIS_DEFAULTED, CLIS_PRESENT, CLI. LOCPRES) : 

: 1079 1138 WAILE cli$get_value(swch_deb ug. desc) 

; 1080 11 dO call _tparse (desc ,debug_states,debug_keys); 

: 1081 1200 

3 1086 1201 TES; 

; 108 1 8 

; 1Oae : + temp = cliSpresent(swch_device); 

r i ; 05 First, initialize all items that can be set by this qualifier: 

: 1088 1 §$ runoff_command(rno$v_4 =Out.. format) = op_dev_line_printer; 

; 1089 120 runof f_command([rno$v_ Ly port iand]) = true; T 1 ==> portrait 
: 1090 120 runof f—command([rno$v_\n01 der] = true; ' 1 ==> italics 
; 1091 121 runof f~command[rno$v_\n01_ “headér] = true; ! 1 ==> O/P header info. 
: 1998 : ; runoff—command(rno$v_\n01_load) = true; ! 1 ==> 0/P font load OCS 
3 1094 121 SELECT .temp OF 

1096 151 =i 

3; 1097 121 CCLIS_ DEFAULTED, CLIS_PRESENT, CLIS_LOCPRES) : 

: 2 ! ! WAILE cli$get_valie(swch _device-desc) 

3 1 121 4 IF NOT (status = call_tparse( desc 

: : ! : ? oGevice.s states, 

4 u 1992 4 THEN RETURN (ZIF DSRPLUS STEN “Gareluss. s facili 

3 1 1 4 ZELSE ac lity” 
3 1 1 4 

: | 1 

3; 1 | 

s 1 1 

3 1 1 

: 1 1 

21 1 

3 1 1 

s 1 

: 1 1 

2 1 1 
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rE 
ce 19° 94:36:17 ; 7 
/MESSAGES /DEC_INTERNA 14-Sep-1984 13:07:54 RUNOFF .SRC JRNOVMS .B32; 
runoff _command(rno$h_form_size] = .runoff_command(rno$h_form_size] - 6; 


~ 
ve 


temp = cliSpresent(swch_messages); 
First initialize all bits that can be set by this qualifier: 


uno t {commends rnogv asg_outd = false; 
runoff _command([rno$v_msg_user] = false; 


SELECT .temp OF 
SET 


CCLIS DEFAULTED, CLIS_PRESENT, CLIS_LOCPRES] : 
WRILE cli$get_valie(swch_messages,desc) 
DO IF NOT (sfatus = call_tparse( desc 
»messages_states 


messages_keys) ) 
THEN RETURN (ZIF DSRPLUS STHEN dsrplus$_ facility 
ZELSE runoff$_facility %F1 “16 


OR ss$_badparam 
OR stsSk_severe) 


TES; 
temp = cli$present(swch_dec_internal); 


PD PPA £ BS BEE EPA & 


First, initialize all items that can be set by this qualifier: 


RNO$V_4_OUT_FORMAT has already been initialized by the processing 
of the 7DEVICE qualifier. 


rune tt _conmandtrnosh. dpe} } = 0; 
runoff_command(rno$h_dbg2) = 0; 


SELECT .temp OF 
SET 
CCLIS_DEFAULTED, CLIS_PRESENT, CLI$_LOCPRES) : 
WAILE cli$get_valie(swch_dec_internal ,desc) 
DO call_tparsée(desc,dec_internal_states,dec_internal_keys); 


TES; 


—_ 
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RNOCLI == final error check 


RUNOFF .SRC 


R. 
RNOVMS = DSR VMS Command rn 18-5 1384 O1: 3: 7 AX-11 a Hg Pe V4.0-74 


i a > a 


RNOVMS .B32; 


7 ZSBTTL 'RNOCLI == final error checking’ 
7 ! If an LNO1 option was used uj thoyt specifying an LNO1, 
? ! report the error and exit with a fatal status. 
¢ IF .tn01 xppticn. used 
4 4 (.runoff_command(rno$v_4_out oforset) EQL op_dev_in01 
5 r OR . runoff” _command( rno$v_4_out_format] EQL op_dev_(n0le) 
$3 THEN 
4 4 RETURN ( ! Our Foci tity name 
4 ZIF DSRPLUS a. 4 lus a tt 
4 ZELSE $_fac city FI 
91 ; OR shr$_confqua "vg shorted wile ah VMS-Land 
92 R sts$K_severe; Sooes FATAL status 
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RNOVMS = DSR VMS Command Line Interface 16-Sep-1984 01:36:17 AX-11 Bliss-32 V4.0-74 P 8 
RNOCLI == Point to dropped record file if prese 12-868-1 382 ey RUNOFF . SRC IRNOVMS.B32; age (425 
37 XSBTTL "RNOCLI == Point to dropped record file if present’ 
i This logic is to support dropped statistical records from DSR and SRPLUS. 
It looks for the extarente of the Logical "‘DSRSSTATISTICAL RECORDS.” and, if 
present, sets up the descriptor RNO$T_DROP_REC to be pointing to the fully 


translated name. 


If the logical does not exist, then the descriptor RNOST_DROP_REC will be 
left in its initialized state. 


BEGIN 
LOCAL 
assign_status, 
seni og_etetus. 
tt_buf_desc : BLOCK (8, BYTE], 
tt_name_string : VECTOR 508) al_name_buffer_length, BYTE], 
Fe name dese : BLOCK (8, BYTE), 
ogtab; 


93 
9 
9 
9 
9 
9 
0 
0 
0 
0 
0 
0 
0 
0 


31 
31 
3] ! Put ‘‘canned’’ Logical name into buffer 
$1 

1 

31 

31 

31 

1 

32 

32 

32 
32 
32 
$5 

2 
32 

3 

3 

3 

; 


CHSMOVE (23, UPLIT ("DSRSSTATISTICAL_RECORDS'), tt_name_string); 
! Initialize descriptor to be pointing to the ‘‘canned’’ logical 


tt_name_desc (Cdsc$w_length] = 23; 

tt=name_desc [dsc$b_dtype] = dsc$k_dtype_t; 

tt_name_desc (dsc$b_class] = dsc$k_class_s; 

ttZname_desc Cdsc$a_pointer] = tt_name_string (0); 

! The same buffer will be receiving the system's translation of the bog ical 
! names. Initialize the destination Spser tptor to point to the same buffer, 
! but to indicate that buffer's full Length. 


tt_buf_desc Cdsc$w_length] = logical_name_buffer_length; 
tt_buf_desc ; 

tt_buf_desc 

tt_buf_desc 


SOWONAUES WN 9 ODNOUES WN (OVD ONAV EWN OOONOu 


dsc$b_class] = dsc$k_class_s 


ee ee me a em em ee ee ee ed ed ed dd od od = = = od = 2d ed dd I 
Pe ee oe eee eee eee ee tt tt ot tt 


31 

3 ! Before we attempt to translate, we first determine lyst which logical 
%z i mame table(s) we will look at (or which one(s) we will ignore). 

5 BEGIN 

§ LOCAL 

i foo; 

33 foo = .runoff_command(rno$h_dbg1]; 
41 IF .foo<13,1>_ THEN 
4g logtab = 0 ! This says we look at all tables 
rt} _ logtab = 6 ! This says we only look at the system table. 
4 o 

5 ! To see if the ‘‘canned"’ Logical name is defined, perform one initial 
rt ! translation and look at the returned status. 


5 
RNOVMS = DSR VMS Command Line Interface 16-Sep-1984 01:36:17 AX-11 Bliss-32 V4.0-74 Page 29 
RNOCLI == Point to dropped record file if prese 1 30071382 94:59: 4% RUNOFF. Re IRNOVMS.B32; ° (14) 
: 1233 P1350 4 trnlog_status = $trnlog ( lognam = tt_name_desc 
> 1234 P1351 4 otsllen = tt_name_desc Cdsc$w_length] 
3 1235 P 1 ¢ 4 srslbuf = tt buf desc 
3; 1 8 1 4 ,dsbmsk = .logtaBb);! Don't look at process or 
3 : : ¢ ? ! group logical name tables 
; 1239 1 $ 4 IF .trnlog_status EQL ss$_normal THEN ! If we are not told that no 
: 1240 1 2 BEGIN ! translation took place, then we 
> 1241 1358 i must assume (at least initially) 
3 3 tg 1359 ! that a logical was defined, and 
> 124 1360 ! we must process it. 
3 1244 1361 2 
3; 1245 1 6¢ 
; Hi : o7 ; ! wrong and we must abort processing of the logical. 
: 1248 1365 
> 1249 HE 5 ! Do the logical name translation up to 9 more times to be sure we have 
; 1250 1367 : ! the real destination. 
; 1251 ib 3 
; 1$26 1369 5 INCR i FROM 1 TO 9 DO 
3 20 1370 5 
; 1254 137) 6 IF (trnlog status = 
; 1255 P 1 Le 6 $trnlog ( lognam = tt_name_desc 
3; 1256 P 137 6 orsllen = tt_name_desc Cdsc$w_length] 
3 1257 P 1374 6 erslbuf = tt _buf_desc 
; 1258 1375 7 ,dsbmsk = 6 J ! Don't look at process or 
3; 1259 1376 7 ! group logical name tables 
3 1260 1377 7 
> 1261 1378 5 ) EQL ss$_notran 
; 1506 it 344 5 HEN 
; 126 1380 5 EXITLOOP; 
3 1264 1381 5 
: 1265 P 1386 5 $SSTR_COPY( STRING = tt_name_desc 
3; 1266 1383 6 TARGET = runoff command(rno$t_drop_rec] ) 
3 1267 1384 6 
3: 1268 1385 5 END 
: 1269 1386 3 END; 


! However, if the return status wasn't rons then something went 
¢ 

| 

| 

| 
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v04-0 RNOCLI == DSR invocation and exit 14-Sep-19 4 94:59 :u7 RUNOFF ..SRCJRNOVMS .B32; age 439 


3 | q} } 5? XSBTTL "RNOCLI == DSR invocation and exit' 

: } rs } 89 ! Cali the DSR application to process a single command Line. 

: 1275 1391 

; 1276 1 35 ZIF NEW_RNODAT_MODULE %THEN 

: 1277 139 rnodat ( runoff_command ); ! Pickup current date & time 

Be ig ge 

: 1280 1 38 status = RUNOFF( runoff_command ); ! Pass the DSR application the address 
3 +t : 4 ! of the complete command information block. 
: 1388 1399 IF NOT .status ! If DSR returns a failure 

3 1284 1400 THEN ' completion code, save it for 

: \$82 et exit status = .status; ! final exit later. 

: 1387 1408 END; ! end of WHILE --- DO against input filename List 

; 1289 1405 i Tell the RTL to dump any LIBSFIND_FILE context that it may still have 

3 1$30 1088 lying around. 

: 1298 1408 : IF LIBSFIND_FILE_END NEQA O THEN 

3 1e97 re § LIBSFIND_FILE_END(Lffctx); 

: 1992 1013 § Purge the working set to free up space for other users. 

: +44 1418 § SYSSPURGWS(ws_Limits); 

; 1¢99 1415 é Return to the system. 

: sd eit § : RETURN .exit_status ' Return the final DSR completion code to the caller. 
: 1308 1419 1 END; ! End of routine RNOCLI 


-TITLE RNOVMS RNOVMS - DSR VMS Command Line Interface 
DENT \v04-000\ 


-PSECT _LIBSKEY1$,NOWRT, SHR, PIC,1 
00000 ; TPASKEYSTO 


U. . 8B 0 
4C 4C 41 00000 ; TPASKEYST 
04: eASCII = \ALL\ ; 
FF 00003 BYTE -=1 : 
0004 ; TPASKEYSTO 0 


U.9: -BL 
53 4C 41 GE GF 49 54 49 44 4E 4F 43 00004 ; TPASKEYST 
FF U.11: ASCII PROT ERLSN $ 


60019 -BY 
0011 ; TPASKEYSTO 


U.16: ,BLKB 0 
53 54 4E 45 54 4E 4F 43 00011 ; TPASKEYS 
U.18:  .ASCII \CONTENTS\ : 
FF 00019 BYTE 1 : 
OO1A ; TPASKEYSTO 


U.23: .BLKB 0 


RNOVM RNOVMS = DSR VMS Command Line Interface 15° Sep-1 
v04=000 RNOCLI -= DSR invocation and exit 14-Sep-1 


53 45 4C 49 46 OOO1A 


80020 ; 
58 45 44 4E 49 00020 


aR 


45 52 4F 54 53 45 52 SF 45 56 41 53 00026 


FF 00088 


00034 
54 55 50 54 55 4F 00034 ; 


FF QO03A 
00038 ; 


52.45 53 55 00038 ; 


FF QO03F 
FF 00040 ; 


00041 
52. 45 54 46 49 52 50 45 4E 49 4C 00041 


FF Q004C 
0004D ; 


31 30 4E 4C 0004D 


FF 00051 
00052 


45 31 30 4E 4C 00052 


$0088 ; 
45 4€ 49 4C 52 45 44 4E 55 00058 
00062 ; 
43 49 4C 41 54 49 00062 
00069 
54 49 41 52 54 52 4F 50 00069 

FF 00071 


AS edie 
. astd! 


BY 
; TPASKEYSTO 
30: LK 
; TPASKEYST 
U.32: ASC 

.ByT 
; TPASKEY mar 
0.37: 
TTPAS Kevéte 
39: ASCII 


-BY 
; TPASKEYFILL 
U.44: 
; TPASKEYSTO 
Ue 46: 


aoe 


I] 
E 


c-: 


-BYTE 
prpgekever® 


; TPASKEYST 
U.74: rts he 


-BYT 
; TPASKEYSTO 


LK 
sTPaskevét 
sti 


YTE 
;TpasevSt0 
Ws yee | 

90: Ti) 
; TPASKEYSTO 
v. LK 
 TPASKEYST 
0.98: “ASCII 
; TPASKEYSTO 
-BLKB 


: TPASKEYST 
U.106: “ASE 


8c 13:09:56 ERUnore® 


_ 


a 


0 
\SAVE_RESTORE\ 
-1 

0 

\QUTPUT\ 


0 
_— 


1 
0 
s sedaaiade 


\LNO1\ 


STEN 


0 
WPSERL EAE 


0 
NA TALIEN 


0 
hah 


vOu~000 
45 50 41 

52.45 44 

52.45 44 41 45 


4a 


44 41 4F 


31 

32 

50 

30 30 

4D 55 4E 5F 


45 4—€ 49 4C SF 54 55 50 


41 


48 


41 


4C 


47 


47 


49 


31 


54 
52 


RNOVMS = DSR VMS Command Line Interface 
RNOCLI == DSR invocation and exit 


43 53 446 4E 41 


45 


4F 


4F 


4F 


42 


42 


4C 


54 


55 
45 


4C 
FF 


D 6 
16-Sep-1 


14-Sep-1 
00072 Us itge gate 
00072 ; TPASKEYST 
0.114: ASCII 
g007e “BYTE 
o7c p TESSKEYS 10 
U.120: .BLKB 
0007C¢ pIPASKEYS! 
U.122: .ASCII 
008 BYTE 
0085 ; TPASKEYSTO 
U.128: .BLKB 
00083 ; TPASKEYST 
U.130: .ASCII 
00088 BYTE 
QO008C ; TPASKEYSTO 
U.136: .BLKB 
0008C ; TPASKEYST 
U.138: .ASCII 
00090 BYTE 
00091 ; TPASKEYSTO 
U.144: .BLKB 
00091 ; TPASKEYST 
U.146: ASCII 
00097 BYTE 
00098 ; TPASKEYFILL 
U.154: .BYTE 
00099 ; TPASKEYSTO 
Y.158: .BLKB 
00099 ; TPASKEYST 
U.160: .ASCII 
0009D BYTE 
QOO9E ; TPASKEYSTO 
U.166: .BLKB 
OQOO9E ; TPASKEYST 
'.168: .ASCII 
000A BYTE 
OO0A gTOQgKevs 0 
U.173: .BLKB 
QO0A3 ; TPASKEYST 
U.175: .ASCII 
000A7 BYTE 
QOOA8 ; TPASKEYSTO 
U.181: .BLKB 
000A8 pTeAsKevs! 
U.183: .ASCII 
B8OAD BYTE 
OAE ; TPASKEYSTO 
U.189: .BLKB 
QOOAE ; TPASKEYST 
U.191: .ASCII 
0088 
it BYTE 
OC1 ; TPASKEYFILL 
U.199: .BYTE 


»PSECT 


Be 15:08:54 


AX=-11 Bliss-32 V4.0-7 
RUNOFF ..SRCJRNOVMS. B32; 


0 
os 


0 
ee 


0 
gua 


0 
— 


0 
ee 


1 
0 
ors 


0 
\gete\ 


0 
VECEPA 


0 
Syren 


0 

\OUTPUT_LINE _NUMBER\ 
1 

-1 
-LIBSSTATES,NOWRT, 


SHR, PIC,1 


RNO 
v04 


————— 


6 
RNOVM RNOVMS = DSR VMS Command Line Interface 16- Sep-19 AX-11 Bliss-32 V4.0-74 
v04- RNOCLI == DSR invocation and exit Haat 9}: 39; i RUNOFF. SRC RNOVMS B30. Page 433 
_0000 DEBUG STATES 
7100 00000 ie rpabage vons 20028 
saensintee°gea Mra <<<RUNOF F _COMMAND+76 6>=4 
“i +/6>-U.6>-4> 3 
00007E00 00006 ; TPASMASK 
U. 7: LONG 32256 : 
FFFF QOOOA ; iPASTARGET 
U.8: .WORD =1 ; 
7101 QO000C ; TPASTYPE 
U.12 «WORD 28929 : 
spies am Mi heat <RUNOF F _ COMMAND +76 13>=4 
: ‘ << 7 +76>-U.13>=4> 3 
00000200 00012 ; TPASMASK 
U.14 -LO 512 3 
FFFF Q0016 ; TPASTARGET 
U.15 WO -1 P+ 
7102 00018 ; TPASTYPE 
U.19 «WORD 28930 : 
00000000* O001A ; TPASADDR 
U.20 «LONG <<<RUNOFF_COMMAND+76>-U.20>-4> ; 
00000400 OOO1E ; TPASMASK 
-21 «LONG 1024 : 
FFFF Q0022 ; TPASTARGET 
-22 -WORD -1 : 
7103 00024 ; TPASTYPE 
-26 «WORD 28931 : 
00000000* 00026 ; TPASADDR 
U.27 «LONG <<<RUNOFF_COMMAND+76>-U.27>-4> : 
00001000 0002A ; TPASMASK 
-28: .LONG 4096 3 
FFFF QOO2E ; TPASTARGET 
229: «WORD =1 : 
7104 00030 ; TPASTYPE 
33: .WORD 28932 ; 
00000000* 00032 ; TPASADDR 
34: LONG <<<RUNOFF_COMMAND+76>-U.34>-4> 3 
00002000 00036 ; TPASMASK 
U.35 -LONG 8192 : 
FFFF QOO3A ; TPASTARGET 
U.36 . WO -1 3 
7505 O003C ; TPASTYPE 
U.40 -WORD 29957 : 
00000000* OO03E ; TPASADDR 
U.41 «LONG <<<RUNOFF_COMMAND+76>-U.41>=-4> 3 
00004000 00042 ; TPASMASK 
U.42: _.LONG 16384 : 
FFFF 00046 pregeramest 
U.4 eWORD = =1 3 
00048 MESSA aes _s tates ; 
7100 00048 ; TPASTYPE 
U.49: WORD 28928 : 
00000000* 0004A ; TPASADDR 
U.50 «LONG <<<RUNOFF_COMMAND+76>-U.50>-4> : 


wet 


RNOVMS = DSR VMS Command Line sytertace 


RNOCLI <= DSR invocation and exi 


00100000 
FFFF 
7101 

00000000* 

00200000 
FFFF 
15F6 
FFFF 


9300 

01 

00000000 
00000000v 

FFFF 

9301 

01 

00000004 
00000000Vv 

FFFF 

9302 

01 

00000005 
00000000v 

FFFF 

9303 

01 

00000009 


i 


0004€ 
00052 
00054 
00056 
QO05A 
0005€ 
00060 
00062 
00064 
00064 
00064 


00067 
00068 ; 
0006F 
00071 
00073 
00074 
00078 
0007¢ 
0007€ 
00080 
00081 
00085 
00089 
00088 
00080 
0008E 


“$e0-1986 01:36:17 


NG ee 


5 
P 


wn 
—~ 
= 
zz 
Gre 
as) a 
o-oo 
zz 
oso oa 


: WORD 
SADDR 
: » LONG 


: LONG 


TYPE 
: «WORD 


fod 
— 
=< 
wv 
m 


5 
P 
5 
P 
25 
5 


T 


P 
Pp 
P 
TP 


POF OF OF NSOSNS— 

had ad 
al = 
S - 
@D nn 
73) x 
m 

~ 


' 
o 
o 
b 
o 
b 
o 
b, 


6 
61: 
DEV “OPTIONS: 


LK 
; TPASTYPE 
STPASFLAGS2 


75: «WORD 
; TPASFLAGS2 
U.76: -BYTE 
TPASPARAM 


SACTION 


wr 
~ 
S 
9) 
a 
m 
~ 


A oy ororns 
nn 
al 
> 
cave ° 
“ 


Satie af 
a°2°3°3 52° 


: TPASACTION 
: TPASTARGET 


; TPASTYPE 
0.91: 
; TPASFLAGS 
0.92: BYTE 
; TPASPARAM 
0.93: 


oo 002-000-0000 VU UN 
~N al w 


. LONG 
00000000v 00092 ; TPASACTION 


.WORD 
DEVICE -STATES:: 


RUNOFF SRE SRNOVMS B32; 
1048576 

-1 

28929 

<<<RUNOF F __COMMAND+76>-U.57>-4> 
2097152 

-1 

5622 

-1 


<<SET_OUTPUT_DEVICE_CODE-U.70>-4> 
-1 

-27903 

1 

4 
<<SET_OUTPUT_DEVICE_CODE-\!. 78>-4> 
1 

-27902 

1 

5 
<<SET_OUTPUT_DEVICE_CODE-U.86>-4> 
1 

-27901 

1 


RNOVMS = DSR VMS Comm 
RNOCLI == DSR invocat 


ton bna* aber foe 
FFFF 
9304 

01 
00000004 
00000000v 
FFFF 
9305 

01 
00000008 
00000000v 
FFFF 
9306 

01 
00000005 
00000000v 
FFFF 
9307 

01 
00000002 
00000000v 
FFFF 
9308 

01 
00000003 
00000000v 
FFFF 
9309 

01 


00096 
00098 
0009A 
00098 
0009F 
000A3 
000A5 
000A7 
000A8 
OOOAC 
00080 
00082 
00084 
00085 
00089 
00080 
0008F 
000C1 
000C2 
000C6 
QOOCA 
ooocc 
QO0CE 
OOOCF 
00003 
00007 
00009 
00008 


ifse ae ah 


a G 
iii 
1 ee 
; TPASFLAGS 
U.100: .BYTE 
; TPASPARAM 
U.101: .LONG 
; TPASACTION 
U.102: .LONG 
3; TPASTARGET 
U.103: .WORD 
gOS TYPE 
U.107: . WORD 
a eta 
: TPASPARAM 
U.109: LONG 
3; TPASACTION 
U.110: .LONG 
3; TPASTARGET 
U.111: WORD 
geeg tre 
U.115: WORD 
3 TPASFLAGS 
U.116: .BYTE 
; TPASPARAM 
U.117: LONG 
; TPASACTION 
U.118:  . LONG 
; TPASTARGET 
UePASTYPES 
jn3s sugne 
; TPASFLAGS 
Uiiesbarine 
arog LONG 
ME eae 
g TRASTARGET 
U.127: WORD 
ML Maddie 
U.1351: WORD 
; TPASFLAGS 
U.132: .BYTE 
3; TPASPARAM 
U.133: LONG 
iiesicria 
1 Hae! 
atpAgtyPe 

© 2 TRABFLAGS 
U.140: . 


<<SAVE _VALUE“U.94>=4> 
-1 

-27900 

1 

4 

<<SAVE_VALUE=U. 102>-4> 
-1 

-27899 

1 

8 
<<SAVE_VALUE-U.110>-4> 
-1 

-27898 

1 

5 
<<SAVE_VALUE=U.118>=4> 
-1 

-27897 

1 

2 

<<SAVE_VALUE-U. 126>-4> 
-1 

-27896 

1 

3 

<<SAVE_VALUE-U. 134>-4> 
-1 

-27895 

1 


AX=-11 Blisg-32 V4.0-74 
RUNOFF .SRC JRNOVMS .B32; 


vO4~000 


RNOVMS = DSR VMS a Line sgeervece 
RNOCLI == DSR invocation and exi 


00000006 
00000000Vv 
FFFF 
930A 
01 
00000007 
00000000Vv 
FFFF 
15F6 
FFFE 


102C 
0000+ 

1300 

01 

Q000000A 
0000+ 

1301 

01 

00000008 
0000* 

9302 

01 

00000002 
00000000Vv 
0000* 

9303 

01 


H 6 


1eSep=198e 85:08:34 


QOODC ; TPASPARAM 


AX=-11 Blisg-32 V4.0-74 
RUNOFF ..SRCJRNOVMS .832; 


U.141: ONG 6 
OO0EO ;TPA AcTiON 
U.142: ON <<SAVE_VALUE“U. 142>-4> 
O00E4 ; TPASTARGET 
Us 143: WORD <1 
OOOE6 ; TPASTYPE 
* 147: g¥Qno -27894 
OOOES ; TPASFLAGS 
U.148: BYTE 1 
OOOED ; TPASPARAM 
U.149: LONG 7 
OOOED ; TPASACTION 
U.150: .LONG <<SAVE_VALUE-U.150>-4> 
OOOF1 ; TPASTARGET 
U.151: WORD -1 
OOOFS ; TPASTYPE 
U.152: WORD 5622 
OOOFS ; TPASTARGET 
U.153: .WORD - 
000F7 -BLKB 1 
OOOF8 DEC 0 STATES:: 
QOOF8 OPTIONS: .BLKB 
OOOF8 ; TPASTYPE 
U.156: .WORD 4140 
OOOFA ; TPASTARGET 
U.157: .WORD <<OPTIONS-U.157>-2> 
OOOFC ; TPASTYPE 
U.161: .WORD 4864 
OOOFE ; TPASFLAGS 
U.162: .BYTE 1 
OOOFF ; TPASPARAM 
U.163: .LONG 10 
00103 ; TPASTARGET 
U 363: eWORD <<U.164-U.165>-2> 
00105 ; TPASTYPE 
U.169: ,¥QRD 4865 
00107 ; TPASFLAGS 
U.170: .BYTE 1 
00108 ; TPASPAR 
U.171: .LONG 11 
OO10C ; TPASTARGET 
U.172: .WORD <<U.164-U.172>-2> 
OO10E ; TPASTYPE 
U.176: s¥ORD -27902 
00110 j, IROSFLAGS 
U.177:  .BYTE 1 
00111 NS | vhamaar 
U.178: .LONG 2 
00115 ; TPASACTION 
U.179: .LONG <<SET_OUTPUT_DEVICE_CODE-U.179>-4> 
00119 great ARGET 
U.18 ~ WORD <<OPTIONS-U.180>-2> 
00118 ; TPASTYPE 
i. -27901 


0011D ; EPASHLAGSO 


LL 


RNOVM RNOVMS = DSR VMS Command Line Interface 16- ~$e0-1984 0}: 36: ‘ AX-11 Bliss-32 V4.0 Page 437 RNC 


v04-0 RNOCLI == DSR invocation and exi 14-Sep-1 4 RUNOFF ..SRCJRNOVMS. 933! vo4 
U.185:  .BYTE : 
00000003 O011E Atar. ene 3 
crops Messina: sipagicrion’ <<SET_OUTPUT_DEVICE_CODE-U.187>-4 : 
. : ° "VU. >-4> e 
ee siPastansel <copTioNns U 188 2 : 
. $ e "Ve >-2> e 
9304 00128 ; TPASTYPE 
U.192: .WORD <-27900 : 
01 0O012A ; TPASFLAGS 
U.193: .B 1 : 
0000000C 0012B ; TPASPARAM 
U.194: .LONG 12 3 
en ee Mati teaeee <<SAVE_VALUE“U.195>=-4 
: ' » “U. >-4> é 
0000* 00133 ; TPASTARGET 3 
U.196: .WORD <<OPTIONS-U.196>-2> : 
15F6 00135 pieastvre 
U.197: .WORD 5622 : 
FFFF 00137 ht baa 
U.19 $ e -1 Pi 
1025 00139 ; TPASTYPE 
U.200: .WORD 4133 : 
ee 61503. “Gono <<U.201-U. 202>-2> 
15F6 0013D  eAStvpE 
U.203: .WORD 5622 ; 
FFFF OO13F ; TPASTARGET 
U.204: ° -1 PY 
00141 ;DBG1 
U.164: .BLKB 0 
003D 00141 ;TPASTYPE 
U.205: .WORD 61 : 
003A 00143 ;TPASTYPE 
U.206: .WORD 58 3 
142C 00145 ; TPASTYPE 
U.207: .WORD 5164 : 
0000* 00147 ; TPASTARGET 
U.208: .WORD <<OPTIONS-U.208>-2> 3 
1025 00149 ; TPASTYPE 
U.209: .WORD 4133 3 
0000* 00148 ; TPASTARGET 
U.210: .WORD <<U.201-U.210>-2> : 
91F5 00140 ; TPASTYPE 
U.211: .WORD <-28171 : 
00000000V O014F ;TPASACTION 
U. 212: .LONG <<SAVE_VALUE-U.212>-4> : 
0000* 00153 ; TPASTARGET 
U. 213: .WORD <<OPTIONS-U.213>-2> 3 
15F6 00155 ; TPASTYPE 
U.214: WORD 5622 3 
0000* 00157 ; TRASTARGET 
U 215: .WORD <<OPTIONS-U.215>-2> 3 
059 GHEE 0 
1058 00159 ; TPASTYPE 
0.216: .WORD 4184 3 


RNOVMS = DSR VMS Command Line Interface 
RNOCLI == DSR invocation and exit 


0000+ 
104F 
0000+ 
1044 
0000+ 
91F5 
00000000Vv 
0000+ 
15F6 
0000* 


95F5 
00000000Vv 
0000+ 


95F4 
00000000v 
0000* 


95F3 
00000000v 
0000* 


1225 

01 

00000001 
0000+ 

117 


ib 


w$ep-1986 13:09:54 


00158 ;TPA TARGET 
Ug! : ,WORD 
0015D ; TPASTYPE 
U.219: WORD 
0015F AS: Ma 
00161 ine RT oro 
00163 ; TPASTARGET 
U.224: WORD 
00165 gioagtyre 
U.225: .WORD 
00167 ys + wae 
00168 BAB tanGET 
U.227: . WORD 
00160 p Toast ve 
U.228: .WORD 
OO16F ; TPASTARGET 
U.229: . WORD 
00171 fet NUM 
U.217: .BLKB 
00171 ; TPASTYPE 
U.230: .WORD 
00173 ; TPASACTION 
U.231:  . LONG 
00177 ; TPASTARGET 
U.232: .WORD 
00179 ;O0CT_NUM 
U.220: .BLKB 
00179 Nes Hadi 
U.233:  .WORD 
0017B ; TPASACTION 
U.234: .LONG 
0017F ; TPASTARGET 
U.235: .WORD 
00181 OES NUM 
U.223: .BLKB 
00181 ; TPASTYPE 
U.236: . WORD 
00183 ; TPASACTION 
U.237: LONG 
00187 ; TPASTARGET 
U.238: .WORD 
S18 cus sith 
18C CHARS STATES: : 
0018C ; TRASTYPE 
U.240: 
0018E ; TRASFLAGS 
U.241: .BYT 
OO18F ;: ir2ta on 
00193 ; TPASTARGET 
0.244: 


00195 sTPAST PE 


c-: 


WORD 


32 V 


AX-11 B iss, 
C RNOVS 


RUNOFF. sR 
<<U.217*U.218>=2> 
4175 
<<U.220°U.221>-2> 
4164 
<<U.223-U.224>-2> 
-28171 
<<SAVE_VALUE=U.226>-4> 
<<OPTIONS-U.227>-2> 
5622 
<<OPTIONS-U.229>=2> 

0 

27147 

<<SAVE _VALUE-U.231>=4> 
<<OPTIONS=-U.232>=2> 

0 

-27148 
<<SAVE_VALUE-U.234>-4> 
<<OPTIONS=U.235>-2> 

0 

-27149 
<<SAVE_VALUE-U.237>=4> 
<<OPTIONS-U.238>-2> 


4645 


<<U.243-U.244>-2> 
4599 


RNOVM RNOVMS = DSR VMS Command Line Interface 16-Sep-19 4 04:36:17 AX-11 Bl iss=32 V4.0-74 Page 139 RNC 


v04-0 RNOCLI == DSR invocation and exit 14-Sep-1984 RUNOFF .SRCJRNOVMS .B32; v04 
FFFF 00197 ; TPASTARGET 
U.246: WORD «4 ; 
15F6 00199 §'5e TYP — 
FFFE 00198 ; TBASTARGET . 
U.248: ORD 3 
00190 ;CHARS_WHICH BASE 
U.243: .BLKB 
1058 00190 Toast E 
U.249: WORD 4184 : 
wetheied * te Se ee 
251: ts <<U.250-U.251>-2> $ 
104F OO1A1 ; TPASTYPE 
U.252: .WORD 4175 $ 
0000* O01A3 ; TPASTARGET 
U.254: .WORD <<U.253-U.254>-2> 3 
1044 OO1AS ; TPASTYPE 
U.255: WORD 4164 3 
0000* O01A7 ; TPASTARGET 
U.257: .WORD <<U.256-U.257>-2> : 
91F3 OO1A9 ; TPASTYPE 
U.258: .WORD -28173 3 
00000000V 001AB ; TPASACTION 
0000* OOTAF ; TPASTARGET 
U.261: .WORD <<U.260-U.261>-2> 3 
91F5 00181 ; TPASTYPE 
U.262: .WORD <-28171 : 
00000000v 00183 pISAgActiOn 
U.263: .LONG <<SAVE_VALUE-U.263>-4> : 
0000* 00187 ; TPASTARGET 
U.264: .WORD  <<U.260-U.264>-2> F 
15F6 00189 ; TPASTYPE 
U.265: .WORD 5622 ; 
FFFE OO1BB ; TPASTARGET 
U.266: .WO -2 3 
001B8D ;CHARS_HEX_NUM 
U.250:. .BCKB 0 
95F5 OO1BD ; TPASTYPE 
U.267: .WORD <-27147 3 
00000000V OO1BF ; TPASACTION 
U.268: .LONG <<SAVE_VALUE-U.268>-4> : 
0000* 001C3 ; TPASTARGET 
U.269: .WORD <<U.260-U.269>-2> 3 
001C5 ;CHARS_OCT_NUM 
U.253: .BCKB 0 | 
95F4 OO1CS ; TPASTYPE 
U.270: .WORD -27148 : | 
00000000vV 001C7 ; TPASACTION 
U.271: .LONG <<SAVE_VALUE-U.271>-4> : 
0000* 001C¢B pIoastance | 
U.272: .WO <<U.260-U.272>-2> ; 
QOO1CD ;CHARS_DEC_NUM 
U.256: .BCKB 0 
95F3 001CD Caer vrs 
U.273: .W -27149 3 
00000000v 001CF ;TPASACTION | 


RNOVMS = DSR VMS Command Line sotortece 


v04-000 RNOCLI == DSR invocation and exi 


0000+ 


11F7 
FFFF 
15F6 
FFFE 


0000+ 
0000+ 
0000+ 
0000* 
0000+ 
0000+ 


0000+ 
0000+ 


0000+ 
0000+ 
0000+ 
0000+ 
0000* 
0000+ 


os0 
30 1984 AX-11 Bliss-32 V4.0-74 
Sep eats 9}: 3$: yy RUNOFF -SRCIRNOVMS. B32 ef 
U. 74: .LONG <<SAVE_VALUE-U.274>-4> 
00103 ; erie ARGET Me 
U.27 .WO <<U.260°U.275>-2> 
00105 ;CHARS_ DONE 
U260; | BLK 0 
001D5 ; TPASTYPE 
U.276: .WORD 4599 
00107 p TEAS TARGET 
U.277: .WORD 1 
00109 ; TPASTYPE 
U.278: .WORD 5622 
00108 p SBR TARGET 
U.279: .WORD <-2 
-PSECT _LIBSKEYOS$,NOWRT, SHR, PIC,1 


00000 DEBUG. KEYS: : 
00000 sTPASKEYD. 
00000 ; TPASKEY 


U.33 
00002 ; TPASKEY 
0.10: oW 
00004 ; TPASKEY 
0.17: WORD 
00006 ; TPASKEY 
0.24: WORD 
00008 ; TPASKEY 


Q000A ; TPASKEY 


«WORD 


U. 0 
QOOOC MESSAGES_KEYS:: 


0000C 
0000C 
0000E 
00010 
00010 ; 
00010 ; 


. 

00016 s TPASKEY 
U.89: 

00018 ;TPASKEY. 
97: 


b. 
O001A ; TPASKEY 
U.105: 
0001C ; TPASKEY 


- WORD 
- WORD 


0 

<U.2-U.1> 
<U.9-U.1> 
<U.16-U.1> 
<U.23-U.1> 
<U.30-U.1> 
<U.37-U.1> 
0 

0 
<U.46-U.45> 
<U.53-U.45> 
0 

0 
<U.64-U.635> 
<U.72-U.63> 
<U.80-U.63> 
<U.88-U.63> 
<U.96-U.63> 
<U.104-U.63> 


Page 40 
29° 48) 


wet 


RNOVMS = DSR VMS Command Line Interface 
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00 00 00 45 43 


45 54 41 


49 44 


41 


00 


43 


54 


00 


00 


45 


50 


00 


4E 


41 


54 


54 


4D 


53 


45 


45 


4C 


55 


55 


52 


00 


4B 


00 


53 


55 


55 


50 


50 


45 


0000+ 
0000* 
0000+ 
0000+ 


0000* 
0000+ 
0000+ 
0000+ 
0000+ 


Mm 6 
16-Sep-1984 01:36:17 AX-11 Bliss-32 V4.0-74 
12-88-1382 94:38:37 RUNOFF. SRCIRNOVMS B32: 
U.113: WORD <U.112-U.63> 
QOO1E ; TPASKEY 
U.121:  .WORD <U.120-U.63> 
00020 preganey 
U.129: WORD <U.128-U.63> 
00022 p TE RSKEY 
U.137: WORD <U.136-U.63> 
00024 MT a 
U.145: WORD <U.144-U.63> 
oose -BLKB 
0028 DEC_INTERNAL_KEYS:: 
BLK 
00028 s TPASKEYO 
U.155: .BLKB 0 
00028 ; TPASKEY 
U.159: . WORD <U.158-U.155> 
0002A ; TPASKEY 
U.167: .WORD <U.166-U.155> 
0002C ; TPASKEY 
U.174: .WORD <U.173-U.155> 
O002E ; TPASKEY 
U.182: .WORD <U.181-U.155> 
00030 ; TPASKEY 
U.190: .WORD <U.189-U.155> 
00032 -BLKB 2 
00034 CHARS_KEYS:: 0 
00034 ; TPASKEYO 
U.239: .BLKB 0 
-PSECT S$PLITS,NOWRT,NOEXE,2 
00000 P.AAB: .ASCII \P1\<0><0> 
0004 P.AAA: .LON 
0008 eADDRESS P.AAB 
OOOC P.AAD: .ASCII \BACKSPACE\<0><0><0> 
0018 P.AAC: .LON 
001C ADDRESS P.AAD 
0020 P.AAF: .ASCII \LOG\<0> 
+4 4 P.AAE: .LONG 
028 eADDRESS P.AAF 
002C Sarre ASCII  deecmacheatiatinns 
-ADDRESS P.AAH 
C P.AAJ: .ASCII \SEQUENCE\ 
44 P.AAL: .LON 
48 eADDRESS P.AAJ 
C P.AAL: .ASCII \SIMULATE\ 
4 P.AAK: .LON 
8 eADDRESS P.AAL 
P.AAN: .ASCII \OUTPUT\<0><0> 
P.AAM: .LON 
eADDRESS P.AAN 
f P.AAP: .ASCII \OUTPUT\<0><0> 
P.AAO: .LON 
78 -ADDRESS P.AAP 
7C P.AAR: .ASCII \INTERMEDIATE\ 
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(15) 


RNC 


ah 


&l 


4C 


4C 


45 


45 


RNOVA 
v04-0 


41 


41 


45 


45 


4E 


4E 


55 


55 
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SF 


5F 


49 44 


42 


42 


4E 


4E 


45 


45 


49 


49 


00 


00 


00 


00 


45 


SF 


SF 


49 


49 


54 


54 


43 


43 


00 


00 


54 


54 


4D 


45 


4E 


4E 


52 
47 


47 


41 


41 


SHES, $8 
54 $f $ 
SEIS, 18 
41088088 SOOM 
Stuns, 198 
06 000 ef 
_ BSH BH 
ria ae ae 
0000001 NOEO 
a JES 
44 4E JE8 
45 54 4 OOF? 
onddonis, GBdre 
5q 00990000" 90195 
45 af 49 00113 
00000012 00118 
sae (ia 0011C 
50 4 00120 
45 4E 49 0012F 
00000012 00134 
00000000' a 
GE 4F | 013C 
49 4C 5 00148 
00000014 00150 
00000000" 00154 
GE 4F PY i 
49 4C 5 0167 
90060014  0016¢ 
00000000" 00170 
47 41 50 0174 
on000005, O017c 
47 41 9° 0184 
00000005, 9018 
52 41 56 00194 
Sm), ir 
52) oy oe OaIAK 
00900000" 180 
4C GF & 1B4 
ondo000%, 90188 
4C 4F + if 
ondoands, 901 c4 
ST gF at OOILE 
epdonn04, 90404 
57 4F 44 00108 


—— 
Foz 


6 
-$ep-1984 01:36:17 AX-11 Bliss-32 V4.0-742 
=300 1382 04:38:07 RUNOFF .SRCJRNOVMS .B32; 1 
P.AAQ: .LONG 12 
ADDRESS P.AAR 
P.AAT: .ASCII  Milteertes 
P.AAS: .LONG 1 
eADDRESS P.AAT 
P.AAV: .ASCII PE HANSE BARS \<O> 
P.AAU: .LONG 1 
ADDRESS P.AAV 
P.AAX: .ASCII \CHANGE_BARS\<0> 
P.AAW LONG 
-ADDRE ~ AAX 
P.AAZ: .ASCII \UNDERLINE_CHARACTER\<0> 
P.AAY: .LONG 19 
ADDRESS P.AA 
P.ABB: .ASCII \UNDERLINE_CHARACTER\<0> 
P.ABA: .LONG 19 
ADDRESS P.ABB 
P.ABD: .ASCII \SEPARATE_UNDERLINE\<0><0> 
P.ABC: .LONG 
ADDRESS P.ABD 
P.ABF eASCII \SEPARATE_UNDERLINE\<0><0> 
P.ABE: .LONG 
ADDRESS P.ABF 
P.ABH: .ASCII \NONSPACING_UNDERLINE\ 
P.ABG: .LONG 20 
-ADDRESS P.ABH 
P.ABJ: .ASCII \NONSPACING_UNDERLINE\ 
P.ABI ONG 20 
ADDRESS P.ABJ 
P.ABL ASCII \PAGES\<0><0><0> 
P.ABK: .LON 
ADDRESS P.ABL 
P.ABN: .ASCII \PAGES\<0><0><0> 
P.ABM: .LONG 
ADDRESS P.ABN 
P.ABP: .ASCII \VARIANT\<0> 
P.ABO: .LON 
ADDRESS P.ABP 
P.ABR: .ASCII \VARIANT\<0> 
P.ABQ: .LONG 
ADDRESS P.ABR 
P.ABT: .ASCII \BOLD\ 
P.ABS: .LON 
ADDRESS P.ABT 
P.ABV: .ASCII \BOLD\ 
P.ABU: .LONG 4 
ADDRESS P.ABV 
P.ABX: .ASCII \DOWN\ 
-ABW: .LONG 
ADDRESS P.ABX 
P.ABZ: .ASCII \DOWN\ 


Pa 4 
9 488 
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RNOVM RNOVMS = DSR VMS Command Line Interface 16-5¢ -1984 01:36:17 AX-11 Bliss-32 V4.0-74 Page 43 
v04-0 RNOCLI == DSR invocation and exit 1 ~30071 38% 05:39:U7 RUNOFF ..SRCJRNOVMS .B32; . (15) 

BBp0088G" BTEG ABYE LONG fe agz : 

00 00 00 45 SA 49 53 SF 4D 52 4F 48 1E4 P.ACB: .ASCII \FORM_SIZE\<0><0><0> : 

Gd 1FO P.ACA: .LONG 9 : 

00° OO1F4 ADDRESS P.ACB : 

00 00 00 45 SA 49 53 SF 4D 52 4F 4 1F8 P.ACD: .ASCII \FORM_SIZE\<0><0><0> : 

9880008 4 P.ACC: .LONG 9 : 

0000000' 8 ADDRESS P.ACD : 

00 00 00 54 48 47 49 O20C P.ACF: .ASCII \RIGHT\<0><0><0> ; 

844! 0214 P.ACE: .LONG 5 : 

0 2300 * 00218 ADDRESS P.ACF : 

00 00 00 54 48 47 4 O21C P.ACH: .ASCII \RIGHT\<0><0><0> : 

444 0224 P.ACG: .LONG 5 3 

oppoogy” 0228 ADDRESS P.ACH : 

00 00 00 47 55 42 45 44 Q022C P.ACJ: .ASCII \DEBUG\<0><0><0> : 

00000005 00 P.ACI: .LONG 5 3 

woppoory 8 8 ADDRESS P.ACJ 3 

00 00 00 47 55 42 45 44 Q023C P.ACL: .ASCII \DEBUG\<0><0><0> 3 

00000005 00244 P.ACK: ONG 5 3 

woppoory” 0248 ADDRESS P.ACL 3 

00 00 45 43 49 56 45 44 Q024C P.ACN: .ASCII \DEVICE\<0><0> : 

B08 0008 88 54 P.ACM: .LONG 6 g 

opgooyy" 0258 ADDRESS P.ACN 3 

00 00 45 43 49 56 45 44 Q025C P.ACP: .ASCII \DEVICE\<0><0> ; 

00000006 00264 P.ACO: .LONG 6 3 

wopgoor” Besee ADDRESS P.ACP F 

53 45 47 41 53 53 45 4D 0026C P.ACR: .ASCII \MESSAGES\ 3 

00000008 00274 P.ACQ: ONG 8 ; 

Oopp0oe" 00278 ADDRESS P.ACR 3 

i a ee ae) ek es 4D 0027C P.ACT: SCII \MESSAGES\ : 

00000008 00284 P.ACS: ONG 8 r 

00000000' boSée ADDRESS P.ACT : 

4C 41 4E 52 45 54 4E 49 SF 43 45 44 OQ0O28C P.ACV: CII \DEC_INTERNAL\ : 

i444 00298 P.ACU: ONG 12 5 

wt eae 02 00 H ADDRESS P.ACV 3 

4C 41 4E 52 45 54 4E 49 SF 43 & 44 OQ02A0 P.ACX: SCII \DEC_INTERNAL\ 5 

QO00000C OO2AC P.ACW: .LONG 12 3 

popgooyy” 00280 ADDRESS P.ACX 3 

4C 41 43 49 54 53 49 54 41 54 53 26 3 44 002B4 P.ACY: .ASCII \DSRSSTATISTICAL_RECORDS\<0> § 

00 53 44 52 4F 43 45 52 SF 002C3 r 


.PSECT SOWNS,NOEXE,2 
00000 RUNOFF _COMMAND : 
BLKB 


; 100 
00064 SWCH_ID:;BLKB 4 
00068 LNO1 OPTION, USED: 


-BL 
7FFFFFFF 00000000 O006C WS_LIMITS: 


LONG 0, 2147483647 ; 
SSTRSDESC= RUNOF F_ COMMAND 
SSTRSBIN DESC= RUNOF F ~ COMMAND 
SSTRSTARGET= RUNOF F “COMMAND 
S$STRSDESC= RUNOF F ~ COMMAND + 
SSTRSBIN DESC= RUNOF F “COMMAND + 
SSTRSDESC= RUNOF F ~ COMMAND +16 


RNOVMS 
v04-000 


F8 


000000006 


09 


000000006 
BC 


C4 


= -G) 


ar Biheller a 


A 
Ag ale 
000000 


B4 
F8 
EF 
Ad 020E000 
ag 0206006 


RNOVMS = DSR VMS Command Line Interface 
RNOCLI == DSR invocation and exit 


OFFC 00000 
DO 00002 
9E 00009 
9E 00010 
9E 00017 
dO O001C 
D4 B88 4 
DO 00027 
D4 0002E 
9F 000 
DD 00037 
Fe 0039 
f Bobee 

1 0004 
D4 Bobes 
Bi 
Hiss 
D 054 
Be 005C 

F QOOSF 
Bs B38 

F 6 
oF 6A 
D4 6D 
F of 
D 6 
3 Bt 
Hes 


RUNOFF _ COMMAND +4 


RUNOFF _ =EOman 48 
RUNOFF COMMAND +4 


» LIBSCVT_DTB 
LIBSTPARSE, LIBSLP PVLINES 


RUNOFF$_ FACIL 

CLIS_ ABSENT CLI$_PRESENT 
CLIS-DEFAULTED, CC1$_NEGATED 
LFFCTX, XSTSCOPY 
STRSEATLURE, SYS$TRNLOG 
LIBSFIND_FILE_END 

CLIS_ LOCPRES. “CLIS_LOCNEG 
SCODES,NOWRT, 2 


pagel, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,— 


#CLIS_PRESENT, R11 
RUNOFF _COMMAND+76, R9 
rit ) 

4471936, SSTRSDESC 
r3oess a57, EXIT_STATUS 


R10 

#2, CLISGET_VALUE 

3 2$ 

ts 

tutte COMMAND INDEX) 


Nor _COMMAND+85 
Abar1996,7 6, “$STRSDESC 
STRSFAILURE 


SSTRSTARGET 
$STRSSTRING 


a34at i986." SsIASDESC 
wSc71936, USSTRSDESC 
SSTRSDESC* 


AX=11 Bliss-32 V4.0-74 
RUNOFF ..SRC JRNOVMS .B32; 


0595 


0668 
0671 


7 
RNOVM RNOVMS = DSR VMS Command Line Interface 16-Sep-1984 01:36:17 AX-11 Bliss-32 V4.0-74 P RNO 
v04-000 RNOCLI == DSR invocation and exit 1 =3007 1382 94:59:u7 RUNOFF . SRC RNOVMS 83081 age 18} v04 
E4 a9 020E0000 8F D0 00 gC MOVL  #34471936, SSTRSDESC : 0674 : 1 
AI D4 CLRL $sTRSD +4 : | 2] 
EC A9 020E00 8F 00 00097 MOVL  #34471936, SSTRSDESC : 0677 : 
AI D4 O009F CLRL WET REDE SC #4 : :] 
CC A9 020E0000 8F DO 000A2 MOVL 434471936, SSTRSDESC + 0680 2 
D0 AD 04 OOOAA CLRL $$TRSD +4 : | ; 1 
D4 A 020E0000 8F DO 000A MOVL #34471936, SSTRSDESC ; 0683 :] 
D AD D4 B CLRL $STRSD +4 : oe 
DC A9 020E0000 8F DO 000B MOVL $#34471936, S$STRSDESC + 0686 7] 
£0 Ad D4 0c CLRL $STRSDESC44 ; 7] 
14 AA 9F 000C PUSHAB P.AAC : 0730 ; 1 
000000006 00 gi FB 90¢6 CALLS #1, CLISPRESENT : 31 
6E 0 D CD MOVL RO, TEMP : 31 
000000006 8F 50 D1 00000 CMPL RO, #CLIS_ABSENT 3 0735 :] 
09 13 00007 BEQL «6-48 : 31 
000000006 8F g D1 00009 CMPL R0. #CLIS_DEFAULTED ; i] 
03 12 QOOE NEQ : 3; 3 
69 08 8A OO0E2 4$ BICB2 #8, RUNOFF_COMMAND+76 : 0736 : 
000000006 8F 0 D1 OO0ES 5$ CMPL RO, #CLIS_REGATED ; 0738 : 1] 
17 13 O00EC BEQL 46s 46$ : 31 
5B 50 Di OOOEE CMPL RO, R11 : : 1 
12 13 OOOFT BEQL 486 6$ : 31 
000000006 8F 50 Di 000F3 CMPL RO, #CLIS_LOCPRES : 31 
09 13 OOOFA BEQL «= 46$ : ee 
000000006 8F : D1 S00F¢ CMPL RO, #CLIS_LOCNEG ; 31 
0 12 9019 BNEQ 7$ : 31 
69 08 88 00105 6$: BISB2 #8, RUNOFF_COMMAND+76 3 0739 3 Y 
000000006 8F 50 D1 00108 7$: CMPL RO, #CLIS_ABSENT + 0741 31 
le 13 0010F BEQL =: 88S ; 71 
000000006 8F 50 bi 00111 CMPL RO, #CLIS_NEGATED ; 1 
09 13 00118 BEQL = «8S ; 1 
000000006 8F 50 D1 OO11A CMPL RO, #CLIS_LOCNEG : 71 
03 12 00121 BNEQ 9$ : 31 
69 04 8A 00123 8S BICB2 #4, RUNOFF_COMMAND+76 : 0742 1 
000000006 &F 50 D1 01 6 9$ CMPL RO, #CLIS$_BEFAULTED + 0744 31 
Og 13 00120 BEQL :'10 : 31 
58 50 Di 0012F CMPL RO, R11 ; 31 
09 13 00132 BEQL «108 : 71 
000000006 &F 9 Di 91 CMPL RO, #CLIS_LOCPRES ; 31 
0 12 1 BNEQ 116 : 31 
69 04 8 0130 10$:  BISB2 #4, RUNOFF_COMMAND+76 > 0745 31 
20 AA OF 9140 11$:  PUSHAB’ ~P.AA + 0749 31 
000000006 00 1 F 14 CALLS #1, CLISPRESENT : 31 
E 0 DO OO14A MOVL RO, ; 31 
000000006 8F D1 00140 CMPL RO, #CLIS_ABSENT : 0754 
9 13 00154 BEQL ~=s«12$ ; 
000000006 8F 0 01 00156 CMPL RO, #CLIS_DEFAULTED : 
4 12 0015D BNEQ 136 : 
92 A9 BA 0015F 138 BICB2 #8, RUNOFF_COMMAND+78 F 9755 
000000006 8F : 163 13$ CMPL RO. #CLIS_REGATED : 0757 
1 16A BEQL =-_:«*14§ F 
58 50 Di 0016C CMPL RO, R11 : 
12 13 gf BEQL 4=s«+148 ; 
000000006 8F p 171 CMPL RO, #CLIS_LOCPRES : 
9 13 00178 BEQL =s-:«*148 ; 
000000006 8F 0 01 OO17A CMPL RO #CLIS_LOCNEG : 
04 12 00181 BNEG -«15$ : 
| 
| 
| 


7 
RNOVM RNOVMS = DSR VMS Command Line Interta 16- -Sep-1984 7 AX=11 Bliss-32 V4.0-74 P 6 
v04-0 RNOCLI == DSR {nwocet ten and exi “2 1 Sep- 1382 9}: 33: uy RUNOFF. SRCIRNOVMS B32: age 438 
A9 88 00183 14$: BISB2 #8, RUNOFF COMMAND+78 : 075 
000000886 BF C ; 15$: CHL R 4! LI$_ABSENT + 076 
000000006 8F : CHPL R , #CLIS_NEGATED ; 
000000006 &F 0 pf 193 cHPL R , #CLIS_LOCNEG ; 
02 A9 4 8A 183 168: BICB2 #4, RUNOFF_COMMAND+78 t 0761 
000000006 8F 0 | 1M 17$: cael R § #CLIS_BEFAULTED 3 0763 
sRGB ee : 
000000006 8F 50 oi 1Be cHPL RO, #CLIS_LOCPRES F 
02 a9 8 as 18D 18$:  61SB2 4 jaRUNOFF _COMMAND+78 + 0764 
30 AA 9F 001C1 19$:  PUSHAB + 0768 
000000006 00 gi FB C4 CALLS aa CLISPRESENT : 
000000606 8F 30 D4 a185 CPL reLis _ABSENT : 0773 
000000006 &8F 30 Di 9107 cHPL RO, #CLIS_DEFAULTED : 
03 a9 80 BF BA O0i60 208 BICB2 #128 RUNOFF _COMMAND+79 t 0774 
000000006 8F 30 D4 OIE 1$ CPL ACLIS_NEGATED : 0776 
" 2h gee gest Bg wm | 
000000006 8F 26 pt IFS CML RO, #CLIS_LOCPRES : 
000000006 8F 30 o1 o208 cHPL #CLIS_LOCNEG F 
03 a9 80 oF as 020 328 BISB2 #28 RUNOFF _COMMAND+79 : 0777 
000000006 8F 30 b4 } OA $ CPL #CLIS_ABSENT : 0779 
000000006 8F 36 D4 0 13 CPL RO SCLISNEGATED : 
000000006 &8F 30 Di ; : CMPL RO, #CLIS_LOCNEG : 
03 Ag 40 ef BA 0 348 BICB2 #64, RUNOFF _COMMAND+79 + 0780 
000000006 8F 0 D4 0 A 25$ CPL RO,” wus. DEFAULTED : 0782 
58 56 ¥ { CPL RO, R11 : 
000000006 8F $ p CMP R #CLIS_LOCPRES : 
03 a9 40 BF 8 41 368 BISB2 #64, RUNOFF _COMMAND+79 : 0783 
40 AA f <8 $ PUSHAB P 1 ; 0787 
000000006 00 1 F 4 CALLS a. CLISPRESENT ; 
000000006 8F Q p i cAPL R * #CLIS_ABSENT : 0792 
000000006 8F 0 of cHPL RO, #CLIS_DEFAULTED : 
04 Ad 4 8A 288: BICB2 #4, RUNOFF_COMMAND+80 : 079 
000000006 8F 20 " $: cHPL in #CLIS_REGATED : 079 
58 50 D 1S CMPL , R11 : 
| 


fF 7 
RNOVM RNOVMS = DSR VMS Command Line Interface 16-Sep-1984 01:36:17 AX-11 Bliss-32 V4.0-74 P 7 RNO 
Y00~080 RNOCLI == DSR invocation and exit 13-808- 1382 se RUNOFF -SRC TRNOVMS..B32; age 48) v04 
12 1 7 BEQL 308 : :] 
000000006 8F 6 i tt CPL R { #CLIS_LOCPRES : : , 
000000006 8F : b cHPL R , #CLIS_LOCNEG : : 
4 a9 4 9 30$: BISB2 #4, RUNOFF_COMMAND+80 : :] 
000000806 BF ; ! 308: CPL R { #CLIS_ABSENT : : t 
000000006 8F 5 p4 36 CPL R { #CLIS_NEGATED : : 
000000006 8F 50 D1 0029 CHPL RO, ACLIS_LOCNEG ; 3} 
04 Ag 03 BA a 338: BICB2 #2, RUNOFF_COMMAND+80 : 7) 
000000006 &F D1 OOcaC 538: (MPL #CLIS$_BEFAULTED ; i] 
3 13 0028 BEQL 34 : : 1 
58 D1 0028 CMPL = RO, R11 : : 1 
09 13 00288 BEQL $ ; 7] 
000000006 8F 20 D4 0 BA cmt #CLIS_LOCPRES ; sf 
04 ag 02 ag 0 cs 348 BISB2 #2, RUNOFF_COMMAND+80 : : 1 
50 AA 9F 002C7 35$ PUSHAB P.AAK : : 1 
000000006 00 01 FB O2CA CALLS #1, CLISPRESENT F i] 
6E 20 DO 00201 MOVL ; TEM ; : 1 
00000000G 8F 0 D1 002D4 CMPL RO, #CLI$_ABSENT : 3 
09 13 002DB BEQL ; : 1 
000000006 8F 50 01 00200 CMPL R0 #CLIS_DEFAULTED : 21 
04 12 002E4 BNEQ 37$ : : 1 
04 a9 10 8A 00266 36$:  BICB2 #16, RUNOFF _COMMAND+80 : a. 
000000006 8F 30 D1 0 EA 37$:  CMPL RO, #CLIS_NEGATED ; :] 
17 13 002F1 BEQL ; : 1 
58 50 Di 002F3 CMPL = RO, R11 ; : 1 
12 13 002F6 BEQL : : 1 
000000006 8F 30 p4 0 FS CHL #CLIS_LOCPRES ; sf 
000000006 8F 33 D1 § 01 CMPL R0 #CLIS_LOCNEG : : 1 
04 fF 0308 BNEG 39$ : : 1 
04 a9 10 8 A 388: BISB2 #16, RUNOFF_COMMAND+80 ; : 1 
000000006 8F 30 D1 00506 398: CPL i #CLIS_ABSENT ; 3} 
000000006 8F 50 01 0031 CMPL RO, #CLIS_NEGATED : 31 
9 13 1 BEQL 40 : 3:1 
000000006 8F 0D CMPL RO, #CLIS_LOCNEG : 1 
4 12 BNEG = 41 : 71 
0% ag § BA 408: BICB2 #8, RUNOFF_COMMAND+80 : 3 1 
000000006 8F D4 D418:  CMPL RO. #CLIS_BEFAULTED : 71 
BEQL 428 ; 3] 
58 ot CMPL RO, R11 : 31 
BEQL «= 42 ; 31 
000000006 8F 0 pj CMPL RO, #CLIS_LOCPRES ; 31 
4 ; 4 BNEG  43$ ; 31 
04 a9 8 : 4 438: BISB2 #8, RUNOFF_COMMAND+80 : 31 
60 AA 9F 00348 43$: —-PUS P ; 31 
000000006 00 1 F 4 CALLS #i, CLISPRESENT ; 31 
6 0 D MOVL TEMP ; 31 
03 A 010c «BF AA BICW2 #268, RUNOFF _COMMAND+79 ; 71 
4 of D B MOVL ie R 3 3 1 
000000006 &F D E CMPL RO, @CLIS_NEGATED ; 31 


000000006 
000000006 


93 

000000006 

000000006 
04 


000000006 
000000006 


03 
000000006 
000000006 


000000006 
000000006 
000000006 


000000006 
000000006 


000000066 


000000006 


000000066 


000000006 


000000006 
000000006 
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58 
8F 
8F 


Ag 
8F 


8F 


Ay 
58 


8F 
8F 


ag 
8F 


58 
8F 


Interface 


70 


0084 


OOCCOCOCOCOCOOCCOOCCOOCOOOOOOOOOOOoOOO 


WAM 


OOOSOOOOOSOSOOOOOOOSOOOOOOOOOOOOOOOO 


soScocecs 


FREE 


ed ed ed ed OWN NHAMMMMOCVTIOOOOWOWWw SAIN OO 
= 


Fete 


MON IVD OMUOMUIONUOOUDU 9 1 2@ NN OF FW QUDUDMOOMUDU $NOONDNDOMOW nn 
SOONMONOSCO— FODGOMON FOGONONOCO— PVF ODO DOMOF FODONW0— FOGODFODGOWMO~N 
NHI WII OP 9 WI WW OOD DF FN WW WW OP WO WI OOP WO 


02909 2909 2909 2909 0 9 9 9 9 9 9 9 9 9 9 9 107009 9 2 9 9 0 2 Ow 0 Ow OO 


$-seo-t9e4 1:36:17 


vw 
wn 


w 


vw 


ume 
Std 


44$ 

RO, R11 

44 

RO #CLIS_LOCPRES 
RO, #CLIS_LOCNEG 


UNOFF COMMAND+79 


4 

#8, R 

R ‘ #CLIS_REGATED 
RO, #CLIS_LOCNEG 
47$ 


#1, RUNOFF _COMMAND+80 
RO, R11 


4 

R #CLIS_LOCPRES 
RO, #CLIS_DEFAULTED 
49$ 


RUNOFF _COMMAND+79 


#4, 
RO, #CLIS_BEFAULTED 
RO, R11 
RO, #CLIS_LOCPRES 
RUNOF F _COMMAND*+8 
#2, CLISGET_VALUE 
#i, CLISPRESENT 
* TEMP 
#CLIS_NEGATED 
R11 
0, #CLIS_LOCPRES 
0, #CLIS_LOCNEG 


#2, R 
#CLIS_BEFAULTED 
54§ 


RO, R11 
RO, #CLIS_LOCPRES 


MIiDMNDMNDVMNDDBVB VDDD" 
-—OOCoOo 
Or oo Fe HH 


al 


#CLIS_NEGATED 
R11 
#CLIS_LOCPRES 
#CLIS_LOCNEG 


DMADMADWMNDVIWD BW 


OOOoo Ooono— 


_— ee ee Ge Ge 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJRNOVMS .B32; 


UNOF F _COMMAND+78 


RUNOFF _COMMAND+78 
#CLIS_BEFAULTED 


| 
| 


<2 
b+ 4 


ae ae kd a 8“ 8 as = od ss = 4 3 = = = = = YY 


H 7? 
RNOVM RNOVMS = DSR VMS Command Line dover fece 16-Sep-1984 AX-11 Bliss-32 v4. p 9 
v06=" RNOCLI == DSR invocation and exi 1 ahep- 138 9}: 3$: i RUNOFF. SRC avs: g334 age 18) 
of 2 00448 BNEQ 57% ; 
gs AS OF 440 56$: | PUSHAB RUNOFF_COMMAND+16 : 0868 | 
0098 cA F 004 PUSHAB P.AA : | 
cbmc: OOAC P " 5 57$ sughae 42 etter + 0877 | 
000000006 00 FB 0045F CALLS #i, CLISPRESENT : | 
s o BB bbe Rove | Fete ‘ 0879 
000000006 &F : b 4 cHPL R { ACLIS_ABSENT : obae 
000000006 8F o} in CmPL R tp #CLIS_DEFAULTED ; 
69 ; BA 004 $:  B1CB2 # UNOF F_COMMAND+76 : 0883 
000000006 8F D4 4 f gs: CMPL sR eects _NEGATED : tH 
17 13 004 BEQL 608 F 
5B 52 D1 O048A CMPL = R2, R11 : 
12 13 004 BEQL 608 ; 
000000006 8F 5 p4 4 F CPL R , #CLIS_LOCPRES F 
000000006 8F 53 D1 0049 CMPL 2, #CLIS_LOCNEG : 
69 20 ig beat 60$ B12 cis RUNOFF _COMMAND+76 + 0886 
000000006 8F 2 01 744 61$: CMPL R2 #CLIS_ABSENT + 0888 
04 12 004a8 BNEG  62$ : 
08 a9 01 BE Q4AD MNE #1, RUNOFF _COMMAND+84 + 0889 
000000006 8F é D1 00481 62$:  CMPL Re #CLIS_REGATED : 0891 
: 13 00488 BEQL 638 ; 
000000006 8F 2 D1 004BA CMPL 2, #CLIS_LOCNEG ; 
06 12 004C1 BNEG  64$ : 
08 A 94 004C3 63$:  CLRB RUNOFF COMMAND 84 + 0893 
69 10 BA O4cg BICB2 #16, ONOFF _COMMAND+ > 0894 
000000006 8F 52 D1 O4¢ 64$: CPL "#CLI$_DEFAULTED : 0897 
OF 13 0040 BEQL 6 § F 
58 D1 004D CMPL R11 : 
09 13 O40 BEQL : 
000000006 8F é D1 004D CMPL 2, #CLIS_LOCPRES : 
49 12 0040 BNE ; 
69 10 88 004E0 65$:  BISB2 #16, RUNOFF_COMMAND+76 : 0899 
18 A9 04 p 4 MOVL #4, SWCH_ID + 0900 
F8 AD OF O04E PUSHAB DESC : 0901 
00CO CA 9F OO4EA PUSHAB P.AAW ; 
000000006 00 08 FB 04E CALLS #3, CL ISGET_VALUE ; 
C E9 O04F BLBC : 
1 F8 hy] ° 4F CMPW DESC, #1 ; 0902 
0 FC BNEQ 6 : 
08 a9 FC BD 0 a8 nove apEsce4, RUNOFF _COMMAND+84 + 0903 
9000000 ' EF OF 66$:  PUSHAB CHARS_KEYS : 0906 
0000000" EF 9F PUSHAB CHARS ~STATES : 
F8 AD 9F 0051 PUSHAB DESC : 
00000000v EE F 14 CALLS #3, CALL_TPARSE : 
D 1B MOVL R STATOS : 
0 IF BLBS STATUS, 6 $ : 
05 BRW igs > 0909 
08 a9 7c OBE 9 4 67%:  MOVB RUNOFF _COMMAND+84 : 313 
000000006 8F g ot 68s: (RPL RG “pets DEFAULTED ; 091 


7 
RNOVM RNOVMS = DSR VMS Command Line Interface 1b-se =1984 01:36:17 AX-11 Bliss-32 V4.0-74 Page 50 RNO 
v04= RNOCL] == DSR invocation and exit 1 ~307 1382 94:59:27 RUNOFF . SRCJRNOVMS .B32; . 13 v04 
000000006 8F 53 p H cMPL Ree #CLIS_NEGATED ; fe 
58 ; p B cree R11 : : 
000000006 8F i i CHPL RE ACLIS_LOCPRES ; i] 
000000006 8F d p 49 CMPL Ree #CLIS_LOCNEG ; : : 
69 40 BF 8 69$:  BISB2 #64, RUNOFF _COMMAND+76 ; 0920 7] 
08 AY 93 005 ts1B NOFF _COMMAND+84 ; 0921 5 
69 fi BA 03 8 BICB2 #16, RUNOFF_COMMAND+76 : 0932 
00DC A F 70$: PUSHAB P.AAY : 09 
000000006 00 o} FB 0365 CALLS #i, CLISPRESENT : 
04 a9 0860 8F AA Ht Bicu2 #2144, RUNOFF_COMMAND+80 : 0935 
000000006 &F 55 D1 037 CMPL RO, #CLIS_NEGATED + 0938 
58 $6 hi as Phpt RO, R11 : 
12 13 0058 BEQL : 
000000006 8F 35 D4 0363 CPL RO, #CLIS_LOCPRES F 
000000006 8F 50 01 a9 cHPL 20, #CLIS_LOCNEG ; 
04 a9 40 BF as 0595 71$:  BISB2 #64, RUNOFF_COMMAND+80 > 0939 
000000006 8F 50 01 059A 72$:  CMPL RO #CLIS_DEFAULTED > 0941 
58 oF ii ae PaPL i R11 : 
9 13 005A BEQL : 
000000006 8F 50 01 O0sa8 CMPL BO, #CLIS_LOCPRES : 
04 a9 0820 «= 8F is 00581 73$:  B1SW2 #2080, RUNOFF _COMMAND+80 + 0944 
cork 3 Bier FURR ERE, os 
000000006 90 03 FB OBE CALLS #2, CL ISGET_VALUE F 
0 E9 005¢ BLBC RO, 75$ : 
01 F8 AD 8 038 CHP W ESC. #1 > 0946 
09 «Ad FC BD #5 He move SpESC+s, RUNOFF _COMMAND+85 + 0947 
18 a9 19 pd 0 05 74$: MOVL #25, SWCH_ID : 0950 
00000000" EF 9F 005D9 PUSHAB CHARS_KEY : 0951 
00000009" EF i 0 DF PUSHAB CHARS STATES ; 
omens RR BB page : 
oa Be RS flags Re rr 
09 «Ad SF OF : FB 75$:  MOVB #95, RUNOFF_COMMAND+85 : 0960 
0114 CA 9F OOSFD 76$:  PUSHAB P.ABC : 
000000006 00 FB 601 CALLS ri. CLISPRESENT : 
06 A 0180 8F AA Op BICW2 #364, RUNOFF_COMMAND+80 : 0971 
000000006 ? 5 b 14 ath H MP aces NEGATED : $977 
1 1B BeQL «6s 77$ " ; 


7 
R RNOVMS = DSR VMS C d Line Interface tb-se -1984 01:36:17 AX-11 Bliss-32 V4.0-74 Page 51 RNC 
you~ RNOCLI == DSR invecet on end exit 1 ~$007 1382 94:59 :a7 RUNOFF .SRC JRNOVMS .B32; ° (13) v04 
58 13 0} CMPL Rg R11 : : } 
Bear = 77$ ; 

000000006 8F § p 6 CPL RO, #CLIS_LOCPRES ; é } 
000000006 8F 9 p CHPL ar #CLIS_LOCNEG : : } 
05 Ag 1 8 77$:  BISB2 #1, RUNOFF _COMMAND+81 : 0978 7. 
000000006 8F 0 D 78$:  CMPL RO, #CLIS_BEFAULTED ; 0980 ie 
: 0 a he : : 
000000006 8F 50 dees cpt #CLIS_LOCPRES ; ; ! 
04 Ad O8A0 8F AB O064F 798: BISW2 & 58, RUNOFF _ COMMAND +80 ; 0984 3 
0150 th 9 ones PUSHAB PLABE . 
000000006 99 03 FB 0636 CALLS #e, CLISGET_VALUE ; ; ! 
0 E 066 BLBC =_s«aRO,_-81$ : : 
01 F8 AD 6] 0666 cHPy sc #1 ; 0986 2} 
09 Ad FC BD #6 066¢ nove aEsc+4, RUNOFF _COMMAND+85 ; 0987 : : 
18 a9 15 D0 0673 80$:  MOVL #21, SWCH_ID : 0 7] 
00000000' EF 9F 0067 PUSHAB CHARS_KEYS ; 0991 ; } 
00000000" EF 9F 9670 PUSHA8 = CHARS_STATES : : | 
00n00000V EF bs 03 HA O68 CALLS #3, CALL_TPARSE ; : 1 
56 59 4 0680 MOVL RO, STATOS ; 3 
sl oud? $4 gogo BRU $IAqUS. vate : 0994 71 
09 a9 2D 90 00696 81$: MOVE #45, RUNOFF _COMMAND+85 : 1000 71 
014C CA 9F 0069A 828: — PUSHAB- PAB : 1005 : 
000000006 00 gi FB ook CALLS #i, CLISPRESENT ; i. 
05 49 06 BA O6A8 g1CB2 #6. RUNOFF _COMMAND+81 1011 i] 
000000006 &F 5 D1 OO6AF CMPL RO, #CLIS_NEGATED ; 1016 : ' 
ee met 
000000006 8F 30 o 9680 CPL RO, #CLIS_LOCPRES : ; | 
000000006 8F 50 D1 006¢6 CMPL RO, ACLIS_LOCNEG 3 21 
05 ag Oe ah Str 35: BISB2 #4, RUNOFF_COMMAND+81 : 1017 3 
000000006 8F 0 p 6b5 4$: CMPL RO, #CLIS_BEFAULTED ; 1019 : | 
58 : i De Phot RO. RT : 31 
OF BeaL~=s«a85$ ; 31 
000000006 8F Q D1 906E) CMPL RO, #CLIS_LOCPRES ; 3 | 
4B Q E8 BNEG = 8 § ; 3 | 
04 a9 ai ar A’ EA 85$: BISW2 #2992, RUNOFF _COMMAND +80 : 1035 | 
016 h OF rs PUSHAB P,ABI : 31 

000000006 i 03 FB i CALLS e, CL ISGET_VALUE ; 

1 F8 AD BI Of CMPW = sCéDE SC, #1 > 1025 


K R 
RNOVA RNOVMS = DSR VMS Command Line Interface 16-Sep-1984 : 7 AX-11 Bliss-32 V4. 
y05~080 RNOCLI == DSR invocation and exit 19-8 Sep ety 94:36: uy RUNOFF. Se ae g35¢ Page 435 
07 1 7 BNEQ 86$ ; 
09 «Ag FC a ? Ht move an SC+4, RUNOFF _COMMAND+85 + 1026 
18 Ad 9 DO OO70E 86$ MOVL #25, SWCH_ID + 1029 
9900000 ' EF 9OF 0071 PUSHAB CHARS_KEYS + 1030 
Pa kD OF 0%] PUSHAB bESC em es 
00000000V EF 3 F 7 i CALLS i, CALL nee : 
6 DO 007 MOVL R STATO : 
7 6 728 BLBS STATUS. 88 : 
038¢ 1 007 BRW ges + 1033 
09 Ag 3 7 g7$: MOVB RUNOFF _COMMAND+85 ; 1039 
FF OF 09 Ag 735 88S: CMPB RUNOFF COMMAND+85, #255 + 1044 
05 12 0073A BNEQ $ : 
09 Ad 94 0073C¢ CLRB RUNOFF COMMAND +85 : 1046 
04 11 0073F BRB 90$ : 
05 ag 8 88 741 89$:  B1SB2 #8, RUNOFF COMMAND +81 : 1048 
0178 CA 9F 00745 90S: PUSHAB P. > 1055 
000000006 00 gi FB 0749 CALLS #i, CLISPRESENT : 
6F 0D 00790 MOVL RO, : 
000000006 &F 50 D1 007 CMPL RO, #CLIS_DEFAULTED + 1061 
OF 13 0075, BEQL * : 
58 D1 0075¢ CMPL  _—RO, R11 ; 
09 13 0075F BEQL ; 
000000006 8F 50 D1 00761 CMPL RO, #CLIS_LOCPRES : 
0— 12 00768 BNEQ : : 
E4 AS OF 00764 91$: PUSHAB RUNOFF _COMMAND+48 + 1062 ; 
0188 CA 9F 0076D PUSHAB P. ; ; 
000000006 00 02 FB 00771 CALLS #2, CLISGET_VALUE ; : 
0198 CA 9F 00778 92$: PUSHAB P. : 1066 ; 
000000006 00 gi FB 0077C CALLS #1, CLISPRESENT : : 
6E 0 00 00783 MOVL , TEM : ; 
000000006 8F 50 D1 00786 CMPL RO, #CLIS_DEFAULTED : 1072 3 
OF 13 0078D BEQL : : 
5B 50 Dl 0078 CMPL R11 : : 
09 13 00792 BEQL ; 
000000006 8F 50 Di 00794 CMPL RO, #CLIS_LOCPRES F 
3 12 00798 BNEQ : 
EC AD 9F 0079D 935: PUSHAB RUNOFF _COMMAND+56 : 1073 
01A8 CA 9F 007A0 PUSHAB P.ABQ F : 
000000006 00 02 FB 007A4 CALLS #2, CLISGET_VALUE : F 
0184 CA 9F 007AB 94$: | PUSHAB P.ABS : 1080 3 
000000006 00 1 FB OO7AF CALLS #1, CLISPRESENT : : 
E 0 D 186 MOVL , TEMP F 3 
000000006 8F 0 01 0078 CMPL #CLIS_ABSENT + 1085 : 
ava 7¢ BNEQ : § ; : 
OA a9 1 B0 007¢ MOVW RUNOFF _COMMAND+86 : 086 : 
000000006 &F g D 1¢6 95$ CPL RO. #CLIS_REGATED : 108 : 
000000006 8F 5 p} cr cMPL #CLIS_LOCNEG ; 
OA A af ihe 968: CLRW R NOFF_COMMAND+86 : 1089 
000000006 8F 0 D4 708 97$: CMPL weCis. DEFAULTED + 1091 
7E BEQL § § ; 
58 p4 7E CMPL = RO, R11 ; 
13 007E7 BEQL 46©-_-«98$ ; 
000000006 8F 0 di 007E9 CMPL RO, #CLIS_LOCPRES ; 


mi 
RNOVM RNOVMS = DSR VMS C d Li terf 15- -1984 7 AX=11 Bliss-32 v4.0 
v04=0 RNOCLI -= DSR invocation Cl ena — 1 38° 138 9}: 35: uy ANNORF SReTRROVNS g334 Page 133 
2E 12 OO7F BNEQ 100$ ; 
FS AD i 7F2 98$ PUSHAB DESC + 1092 
01¢ A 9F OO7F PUSHAB P.ABU F 
000000006 09 é re 7F CALLS 3, CL ISGET_VALUE ; 
—E DD PUSHL  SP° + 1094 
FC AD pp PUSHL  DESC+4 + 1095 
43 F Ap C MOVZWL DESC. =-(SP) + 1094 
000000006 0 Q F ¢ CALLS #3, LIB$CVT_DTB : 
56 0D 0 1 MOVL RO. STAT : 
OA Ad 6F 80 16 MOV TEAR, RUNOFF _COMMAND+86 + 1097 
OA ad 8 80 6 i 99$: MOVW #1, RUNOFF_COMMAND+86 + 1100 
occ «=OCAsCOF 100$: PUSHAB P.ABW + 1104 
000000006 00 o1 FB 0824 CALLS #i, CLISPRESENT : 
6 0 00 00828 MOVL RO, TEMP : 
: D0 08 E MOVL TEMP, R2 > 1106 
000000006 8F ; D4 0831 cHPL R j gC 1S_ABSENT + 1109 
000000006 8F 38 p4 OB5A CPL R jg CLIS_NEGATED : 
000000006  8F 53 Di doses cHPL R2, ACLIS, LOCNEG F 
10 Ad B4 bonde 101$: CLRW RUNOFF_COMMAND+92 + 1110 
000000006 8F ge bt they 102$: cel Re, McCIS. DEFAULTED 3: 1112 
5B 5 D} b08e8 CMPL Re R11 : 
09 13 00858 BEQL 1088 ; 
000000006 8F 32 pf 0085p cHPL RZ, #CLIS_LOCPRES 
FB AD OF tes 103$: PUSHAB DESC + 1113 
01D8 CA 9F 00869 PUSHAB P.ABY : 
000000006 00 92 FB 0860 CALLS #2, CLISGET_VALUE : 
19 E9 00874 LBC =—-«&RO.«(104$ : 
SE DD 00877 PUSHL SP + 1115 
FC AD bp 0879 USHL DESC+4 : 1116 
7E 8 AD C 0087¢ MOVZWL DESC. (SP) : 1115 
000000006 00 9 F 0880 CALLS #3, LIB$CVT_DTB : 
é 0 00 088 MOVL RO. STAT ; 
10 Ag 6— B80 0088A MOVW TEAR. RUNOFF _COMMAND+92 : 1118 
4 11 0088 BRB 105$ : 

10 ag 5 BO 00890 104$: MOVW #5, RUNOFF_COMMAND+92 > 1121 
000000006 8F 38 D4 0 34 105$: CPL R ggtt8- NEGATED ; 1123 
000000006 8F f p 8 % CPL R gghCb!S_LOCNEG : 

5B D CMPL =-R2. R11 : 
1 a8 BEQL =-104$ ; 
000000006 8F : cHPL erase chat 

06 a9 0 106$:  BISB2 #16, RUNOFF_COMMAND+82 > 1124 

O1EC «CCA oF B8 1988: PUSHAB P.ACA . ; 1138 
000000006 . B CALLS #i, CLISPRESENT ; 
D C VL —sRO,_-FORM_QUALIFIER : 

D ¢ MOVL FORM _QUACIFIER, R2 ; 1139 

000000006 &F p ¢ CMPL np BCLIS$_ABSENT : 11 

B 12 008D BNEG 108$ ; 
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m7 
-Sep-1984 7 AX-11 Bliss-32 V4.0-74 
12-808 71882 94: 3$: uy RUNOFF .SRC IRNOVMS B32 pf 

F D CALLS #0, LIBSLP_LINES 
B D MOVW RO, RUNOFF E OMMAND+96 
D DD 108$: CMPL Re. #CLIS$_REGATED 

1 £4 BEQL 109$ 
D £6 CMPL  R2, #CLIS_LOCNEG 

if ED BNEQ 1108 
8 EF 109$: CLRW RUNOFF_COMMAND+96 
D4 Fe 1108: CMPL 2, #CCI$_DEFAULTED 

1 F BEQL §6«31'18 
D4 FB CMPL Re R11 
53 0305 Beet R is LOCPRES 

12 $39 BNEG Ree ie 
9F 00909 111$:  PUSHAB DESC 
OF 9090 PUSHAB P.ACC 
FB 091 CALLS #2, CLISGET_VALUE 
E 0091 LBC ~=—_-«RO,-«*112$ 
DD O091A PUSHL SP 
bp bo9i¢ USHL  DESC+4 

C 0091F MOVZWL DESC, -(SP) 
FB 00923 CALLS #3, LIB$CVT_DTB 
DO 0092A MOVL RO, STATUS 
BO 0092D MOVW TEMP, RUNOFF _COMMAND+96 
11 00931 BRB 113$ 

FB 00933 112$: CALLS #0, LIBSLP_LINES 
B0 00954 MOVW RO, RUNOFF ~COMMAND+96 
DO 009 E OVL #CLI$ ABSERT, FORM_QUALIFIER 
9F 00945 113$: PUSHAB P.ACE™ 
FB 00949 CALLS #1, CLISPRESENT 
DO 00950 MOVL RO, TEMP 
DO 00953 MOVL TEMP R2 
D1 00996 CMPL = R2, #CLIS_ABSENT 
13 0095p BEQL 1148 
D1 0095F CMPL 2, #CLIS_NEGATED 
13 00966 BEQL =s1148 
D1 0096 CMPL  R2, MCLIS_LOCNEG 
12 0096F BNEQ 115$ 
B4 00971 114$:  CLRW RUNOF F_COMMAND+94 
D1 00974 115$: CMPL Re, #CCI$_DEFAULTED 
13 00978 BEQL tes" 
D1 00970 CMPL Re R11 
13 0098 BEQL 1168 
D1 009 CMPL R2, MCLIS_LOCPRES 

12 09 BNEQ 118$ 
9F 0098B 116$:  PUSHAB DESC 
9F 0098 PUSHAB P.ACG 
FB 099 CALLS “2, CL ISGET_VALUE 
E9 009 LBC =3FsaRO,:*1178 
DD 0099C PUSHL SP 
po 99 PUSHL  DESC+4 

C 009A MOVZWL DESC, -(SP) 
FB OO9AS CALLS #3, LIBSCVT_DTB 
DO O09AC MOVL RO, STATUS 
; SAF MOV TERR, RUNOFF _ COMMAND #94 

983 PRB 118$ 

BO 009B5 1178: MOVW #5, RUNOFF _COMMAND+94 
D1 00989 118$: CMPL R2. #CLIS_REGATED 
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RNOVMS RNOVMS = DSR VMS Command Line Interface -Sep-1984 AX-11 Bliss-32 V4.0 P 
v04-000 RNOCLI == DSR invocation and exit 12-868 “19 oR 9}: 38: yy RUNOFF ..SRCJRNOVMS. g35¢ age 433 
17 13 009C¢ BEQL 1198 : 
000000006 8F 52 p4 seg CMPL Re #CLIS_LOCNEG : | 
Q 1 9¢ BEQL § : | 
OF Dooce Sot 86s" : 
000000006 8F 33 bj 0306 CPL #CLIS_LOCPRES : 
06 a9 3 es 909 119$: BISB2 # § RUNOFF _COMMAND+82 + 1174 
0230 CA 9F 009DD 120$: PUSHAB P : 1183 
000000006 00 gi FB 961 CALLS #1, CLISPRESENT : 
6E 0 p 968 MOVL R p : 
01 a9 7E BF 8A OO9E BICB2 #106, RUNOFF_COMMAND+77 + 1192 
50 gf dO oF MOVL TEMP 3 1194 
000000006 &F D4 OF CMPL RO, #CLIS_DEFAULTED + 1197 
OF 13 OO9FA BEQL «1 2ff$ : 
5B 50 Di O09FC CMPL = RO, _R11 : 
09 13 OO9FF BEQL -«-12/1$ : 
000000006 8F 0 D1 0OA01 CMPL RO, #CLIS_LOCPRES ; 
29 12 OOA08 BNE : 
F8 AD 9F OOAOA 121$:  PUSHAB DESC + 1198 
0240 CA 9F OOAOD PUSHAB Ck : 
000000006 00 02 FB OOA11 CALLS #2, CLISGET_VALUE ; 
18 50 £9 OOA18 LBC 122 ; 
00000000' EF 9F OOAIB PUSHAB DEBUG_KEYS > 1199 
00000000 EF 9F OA 1 PUSHAB DEBUG-STATES : 
F8 AD 9F OOA27 PUSHAB DES ; 
00000000V_ EF 03 FB OOA2A CALLS #3, CALL_TPARSE : 
D? 11 00A31 BRB 121$ : 
0250 CA 9F OOA33 122$: PUSHAB ACM : 1203 
000000006 00 01 FB OOA37 CALLS #1, CLISPRESENT ; 
6E 50 DO OOA3E MOVL MP F 
02 Ad 03CO 8F AA OOAG1 BICW2 #960, RUNOFF_COMMAND+78 : 1207 
06 Ad OF 88 O0A47 BISB2 #15, RUNOFF _COMMAND+82 + 1211 
50 6E D0 OOAdB MOVL : 1213 
000000006 8F 50 01 OAdE CMPL RO #CLIS_DEFAULTED + 1216 
0— 13 OOAS BEQL $ : 
58 50 Di 00A57 CMPL RO, R11 : 
09 13 OOA5A BEQL ; 
000000006 8F 0 01 ASC CMPL RO, #CLIS_LOCPRES ; 
2F 12 O06 BNEQ 124$ ; 
F8 AD OF DOAG3 123$: PUSHAB DESC : 1217 
0260 CA 9F OOA6 PUSHAB P.ACO : 
000000006 00 02 FB DOAGC CALLS "e, CLISGET_VALUE : 
1E 5 f OA LBC =—_—s«aRO,_:« 104 ; 
00000000' EF F OOALE PUSHAB DEVICE_KEYS + 1219 
00000000" EF 9F OOA7 PUSHAB DEVICE-STATES : 
F8 AD OF OOAB PUSHAB DESC : 
00000000v Ef Q FB OOA CALLS #3, CALL_TPARSE ; 
: DO OOA8C MOVL RO STATOS : 
ny 86 : OA8F BLBS § STATUS, 123$ ; 
59 (11 OA 2 BRB 126$ ; 1392 
0270 CA 9F OOA94 124$:  PUSHAB P.ACQ : 1 
000000006 0 1 FB A98 CALLS #1, CLISPRESENT F 
of : : AQF MOVL RO, TEMP ; 
02 A A AA BICB2 , _ COMMAND +78 : 1242 
30 6 DO OOAA MOVL iene + 1244 
000000006 &F D1 OOAA9 CMPL oR bctis. DEFAULTED > 1247 
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f 
RNOVMS RNOVMS = DSR VMS C d Line Interf 1b-sep 4 01:36:17 AX-11 Bliss-32 V4.0-74 
vO4~000 RNOCLI == DSR invocation and exit Ve-$ep-1984 15:02:54 RUNOFF OSRESRNOVMS 83211 toe 
; 13 OOAB BEQL 125$ ; : 
5B D4 AB CMPL RO, R11 : : 
9 13 OOAB BEQL«=Sséd 258 : ; 
000000006 8F Q D} A cHPL R pgHCLIS_LOCPRES : 3 
FB AD i ACO 125$: PUSHAB DESC + 1248 : 
0280 CA 9F OOAC PUSHAB P.ACS : ; 
000000006 90 03 FB OAC? CALLS “e, CLISGET_ VALUE ; ; 
00000000" €éF ef OAD1 PUSHAB MESSAGES_KEYS + 1249 ; 
00000009" EF 9F OOAD7 PUSHAB MESSAGES-STATES : : 
F 48 oF pape PUSHAB besc g : 
00000000v EE 9 FB OOAEO CALLS #3, CALL_TPARSE : : 
é 0 00 OOAE7 MOVL RO, STATOS : : 
D3 56 EB OOAEA BLBS STATUS, 125$ : : 
50 00000000* &F D0 QOAED 126$: MOVL #<<<RUNOFF$_FACILITY@16>!20>!4>, RO + 1252 : 
0294 CA 9F OOAFS 127$: PUSHAB P.ACU + 1259 : 
era SEB Hussy ALS aagrnesew : : 
0c AD D4 00805 CLRL _ RUNOFF_COMMAND+88 > 1266 : 
50 6E DO 00B06 MOVL ‘TEMP, > 1269 : 
000000006 8&F 30 D1 00809 CHPL RO, #CLIS_DEFAULTED ; 1272 ; 
5B 50 01 00812 CMPL RO, R11 : ; 
09 13 0081 BEQL =: 128$ : ; 
000000006 8F 30 D 00817 cHPL RO, #CLIS_LOCPRES ; : 
FB AD OF 00820 128$: PUSHAB DESC + 1273 : 
02A8 CA 9F 00823 PUSHAB P.ACW 3 3 
000000006 09 92 re 008 t CALLS #2, ibageeT- VALUE ; 
00000000' EF 9F 00B31 PUSHAB DEC_INTERNAL_KEYS > 1274 : 
00000000" EF 9F 00B37 PUSHAB DEC~INTERNAL STATES : ; 
F8 AD OF 008 D PUSHAB Dest : ; 
00000000V_ EF 03 FB 00840 CALLS #3, CALL. TPARSE ; 
18 1¢ A9 £9 00B49 1298: BLBC LNO1_OPTION_USED, 130$ : 1282 : 
04 02 a9 04 06 FD 0084p CMPZV as #4, RUNOFF_COMMAND+78, #4 + 1284 : 
10 0085 BEQL 4 =:«130$ : 3 
05 02. a9 04 06 ED 00855 CHPZV t , #4, RUNOFF_COMMAND+78, #5 ; 1285 : 
50 00000000* 8F v0 OB 4D MOVL #<<<RUNOFF$_FACILITY@16>!4832>!4>, RO 1292 ; 
OC AE 0280 CA 17 28 bbe 130$: MOVC3 #23, P.ACY, TT NAME STRING : 1314 : 
04 AE 010E0017 &F p OB6¢ MOVL #1769476 “TT_RAM : 1318 : 
08 AE AE : 0B74 MOVAB store STRING f “MARE _DESC+4 + 1321 : 
FO AD 010E0100 8F 0879 MOVL ri7006 76, TT_BUF : 1327 : 
F4 AD C AE ; B81 MOVAB TT SfRI NG, F 7D “Sur _DESC+4 : 1330 : 
30 C (A $ B CVTWL RUNOFF © POMBAND $88, "FOO" > 1339 ; 
04 0 9p E1 OOB8A BBC aS FOO, 1 "3 > 1341 : 
9 D4 008 CLAL LOGTAB : 1342 : 
50 D0 O89 1313: ROVL #6, LOGTAB 1344 
8 bp B9 1338 PUSHL LO6T : 1333 F 
ee 38? CLRQ -(SP) ; 3 
FO AD 9F 00899 PUSHAB TT_BUF_DESC : : 


; Routine Size: 3117 bytes, Routine Base: S$CODE$ + 0000 


RNOVA RNOVMS = DSR VMS Command Line interface 16-se -Sep-1984 7 AX-11 Bliss-32 V4.0-74 Pa 7 
v04-0 RNOCLI == DSR invocation and exi 1 ~Sep-1 198 9}: 39; i RUNOFF ..SRCJRNOVMS .B32; 9435 
1 AE 3 RRS USAR HH tapas : 3 
000000006 00 FB BA CALLS #6, SYSSTRNLOG ; ; 
1 D1 OOBA CMPL TRMLOG_ STATUS, #1 : 1356 ; 
B if BA BNEQ 135 : ; 
52 1 DO OOBA MOVL #1, 1 + 1369 ; 
6 bp BB1 133$:  PUSHL #6 + 1375 ; 
— 7C OOBB CLRQ. = (SP) : ; 
FO AD 9F O00BB PUSHAB TT_BUF_DESC : : 
14 AE 9F 0088 PUSHAB TT-NAME_DESC : : 
18 AE 9F O00BBB PUSHAB TT-NAME-DESC : ; 
900000006 90 06 F BB CALLS #6, SYSSTRNLOG : ; 
00006 F D1 O0BC CMPL -TRNLOG_STATUS, #1577 + 1378 ; 
04 13 OOBCC BEQL  134$ : ; 
DF 52 09 F3 OOBC AOBLEQ #9, I, 133$ + 1371 ; 
000000006 cr 9F OOBD2 134$:  PUSHAB STRSFAILURE : 1383 : 
E D4 OOBD CLRL = = (SP) : ; 
cc} =6A9) «(OF OOBDA PUSHAB $STRSTARGET : ; 
10 AE 9F OOBDD PUSHAB $STRSSTRING : ; 
7E D4 OBE CLRL = = (SP) : ; 
000000006 EF 05 FB OOBE2 CALLS #5, XSTSCOPY : ; 
B4 Ad 9F OOBES 135$: PUSHAB RUNOFF_COMMAND : 1393 ; 
00000000v_ EF 01 FB OOBEC CALLS #1, RNODAT : ; 
B4 Ad OF OOBF PUSHAB RUNOFF _COMMAND + 13% : 
000000006 EF gi FB OOBF6 CALLS #1, RUNOFF : : 
6 0 DO O0BFD MOVL RO, STATUS ; ; 
03 56 «EB 99600 BLBS STATUS, 136$ + 1399 F 
57 56 DO 00C03 MOVL STATUS, EXIT_STATUS + 1401 : 
F42B 31 00C06 136$: BRW 1$ : 0642 F 
50 000000006 00 H 00C09 137$: MOVAB LIBSFIND_FILE_END, RO : 1408 : 
0D 13 00C10 BEQL 138$ ; ; 
000000006 EF 9F docig PUSHAB LFFCTX : 1409 ; 
000000006 00 61 FB 00C1 CALLS #1, L LIBSFIND _FILE_END : : 
20 AQ OF OOCIF 138$: PUSHAB WS_I TS : 1413 ; 
000000006 00 01 FB b0¢ 38 CALLS #1, SYSS$PURGWS : ; 
50 57 pO 00C29 MOVL §EXIT_STATUS, RO + 1417 ; 
04 00C2C RET > 1419 : 
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RNOVMS = DSR VMS Command Line Interface Sep-1984 AX-11 Bliss-32 V4. 
CALL_TPARSE == Routine to call LIBSTPARSE 18-50-1984 9385s, ERMNorr SReSRnovMe 324 Page 425 


ZSBTTL "CALL_TPARSE == Routine to call LIBSTPARSE’ 
ROUTINE call“tparse(string,states,keys) = 


'e¢ 
FUNCTIONAL DESCRIPTION: 

This routine calls tparse given the string, states, and keys 
FORMAL PARAMETERS: 


string Address of string descriptor for string to parse 
states Address of tparse states table 
keys Address of tparse keys table 

IMPLICIT INPUTS: none 

IMPLICiT OUVPUTS: none 


ROUTINE VALUE: 
COMPLETION CODES: return code of LIBSTPARSE 


SIDE EFFECTS: none known 
BEGIN 
MAP string : REF BBLOCK; 
LOCAL 
statu 


tpablock : BBLOCKCtpa$k_length0]; 
} Initialize the TPARSE block: 
CHSF ILL ( etpask. Lengthd. gi typed. 
tpablock(tpa$l_Count] = tpaSk count0; 
tpablock(tpa$l_options] = tpaSm_ ab 
tpablock(tpa$l“stringcnt] = st ingtdsc ty. Length]; 
tpablock(tpa$l_stringptr] = .stringldsc$a “pointerd; 
: Envoke TPARSE and return with its return code: 


A ages LIBSTPARSE (tpablock,.states,.keys) 


— 
PN NN eee 
AAAAUMNUNNUNUIUU ES BR BEE EB BB WWWnononononononononond 


WO DOONAN WN O ODNAUE WN (CO OONOUEWAR (OO ONOUS WN Oo 


=POPIPOPOPINUNIPOPINONINONINONINNNY — tt tt 


Bt ss ss a > bs as as 1s 1 as I ss i 


003C 00000 CALL_TPARSE: 
WOR 


Se 4 0200 suet He 55 AS AE MS : 1421 
00 6E 66 sé 008 movcS #0, (SP), #0, #36, TPABLOCK 1454 
bE D MOVL 48. TPABLOCK > 1455 
04 Ar D MOVL TPABLOCK +4 > 14 § 
5 06 AC D MOVL STRI ING : 14 


RNOVM RNOVMS = DSR VMS Command Line | 
v04-0 CALL_TPARSE == Routine to call 
8 AE 
be OA 
7E 


000000006 00 
; Routine Size: 46 bytes, 


; 1349 1464 1 


Routine Base: 


SCODES + 0C2D 


1b 


1986 93:08! 


MOVZWL 
MOVL 


MOVQ 
PUSHAB 
CALLS 
RET 


TPABLOCK+8 
TPABLOCK4+12 
(SP) 


5 

e§ 
ABLOCK 

LIBSTPARSE 


AX-11 Bliss-32 V4. 
RUNOFF .SRCJRNOVMS. 


Pa 59 
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RNOVMS = DSR VMS Command Line Interfac 16-Sep-1984 01:36:17 AX-11 Bliss-32 V4.0-74 Page 60 
VE_VALUE == store values decided by A -Sep- 707: UNOFF ..SRCJRNOVMS .B32; (17) 
SAVE _VALUE L decided b $1P RSE 14 1984 4 R F 32 
1465 1 XSBITL "SAVE_VALUE == store values decided by STPARSE' 


ROUTINE save_value = 


N 
BUILTIN AP; 
MAP AP : REF BBLOCK; 


SL EC Tone -ap(tpa$l_param]) OF 


Csv_di_dbg1] : runoff_command(rno$h_dbg1] = .APCTPASL_NUMBER); 
Csv_di_dbg2) : runoff _command(rno$h_dbg2) = .APCTPASL_NUMBERJ; 
Csv_byte_value] : BEGIN 

+ hai ~-swoh_id OF 


S 
S 


Cswch_id_change] : 
runoff_command(rno$c_change] = .APCTPASL_NUMBER]; 


Cswch_id_underline,swch_id_spacing,swch_id_separate) : 
runotf_command(rno$c_underlined = .APLTPASL_NUMBER]; 


COTHERWISE] : RETURN 0; 


TES 
END; 


how_Cov.tondacepes : 
runoff_command(rno$v_ln01_port_land] = 0; 
ue 


in0l_option_used = tr 


piu, Sov_gortretes : 
runoff_command(rno$v_\n01_port_land] = 1; 
12" Apt 10 used = true 


Cov_dov_undert ined : 
runoff_command(rno$v_\n01_ital_under] = 0; 
Ln0l_option_used = true 
END; 

Csv_dev_italic] : 

BEGIN 


runoff_command(rno$v_(n01_ital_under] = 1; 
121.098 1en_used = true 


Cov_dev_header) : 
cunett.¢ mmand(rno$v_\n0l_header) = true; 
Ln01_option_used = true 
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RNOVMS = DSR VMS Command Line Interfac 18- Sep-19 AX-11 Bliss-32 V4.0-74 P 1 
SAVE_VALUE == store values decided by STPARSE attr 93: 39; Hy RUNOFF .SR RCIRNOVMS. B32; age 13) 
END; 
Csv_dev apgheaders 
int a06 command(rno$v_\n01_header] = false; 
_option_used = true 
Csv_dev_ ae : 
“BEGIN 
runoff _command(rno$v_\n01_load] = true; 
tnot. option_used = true 


Csv_dev_noload) : 
“BEGIN 


runoff_command(rno$v_(n01_load] = false; 
ee option_used = true 


Csv_output_line_numbers) : Guteut files Line numbers in the 
runoff_command(rno$h_d 


dbged 
.runof f_command rno$h _dbg2] + 1°15 ; 


COTHERWISE) : RETURN 0; 
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TES; 
1 ! If we get back to here, return "SUCCESS" 
1 END; ! End of routine SAVE_VALUE 
0004 00000 SAVE_VALUE: 
-WORD Save R2 : 1466 
52 00000000' EF 3 0000 MOVAB RUNOFF _COMMAND +80, R2 : 
51 20 AC 00 0000 MOVL 32(AP)~ R1 + 1471 
OA 31 D1 00000 cMPL =f, #10 + 1474 
, ¥ 1 BNEQ 1$ : 
08 A2 1¢ AC 8 1 MOVW gB(AP), RUNOFF _COMMAND+88 : 
1 BRB 3 
08 i D1 00019 1$: CMPL =-R1, #1 : 1476 
7 1 1c BNEQ $ ; 
OA A2 1¢ AC 8 1 nov (AP), RUNOFF _COMMAND+90 
01 i p| 2$: CMPL = RI, #1 > 1478 
BNEQ 6$ : 
50 14 A2 D A MOVL SWCH 71°. RO > 148 
.  Y ges iE be 
04 A2 1¢ AC #6 HOVE ; yi. RUNOFF _COMMAND+84 : 1484 
15 5 D1 A 38: CMPL ~=s RO, > 1486 
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3; Routine Size: 


RNOVMS = DSR VMS Command Line Interface 1b-sep 1386 9: 3: 4 AX-11 Bliss-32 v4.0-74 
SET_OUTPUT_DEVICE_CODE == store 0/P device type 1 ae ot 4 RUNOFF .SRCJRNOVMS.B832; 
1554 1 ZSBITL ‘SET_OUTPUT =DEVICE. CODE == store 0/P device type codes determined by STPARSE’ 
1555 1 ROUTINE set_output_device_code = 

1 § BEGIN 

1 BUILTIN 

38 MAP AP : MRF BBLOCK; 

} $9 runoff _command(rno$v_4_out_format] = .ap{tpa$l_param]; 

! $6 1 ! Make it return ‘‘success"’ 

1564 END; ! End of routine SET_OUTPUT_DEVICE_CODE 


0000 00000 SET OUTPUT pew ice CODE: 


ate nothing 
04 06 20 00 00002 INSV (AP), #6, #4, RUNOFF _COMMAND+78 
50 4 Boor nov #1, RO 


16 bytes, Routine Base: SCODES + ODIA 
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RNODAT = Get current system date and t 
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-Sep-1 RUNOFF .SRC JRNOVMS .B32 


ZSBTTL ‘RNODAT = Get current system date and time’ 
Z1F_NEW_RNODAT_MODUL THEN 
ROUTINE rnodat (runoff command) : NOVALUE = 


144 
' 


ABSTRACT: Obtains the system date and time in a standard format. 
This routine has been made a part of RNOVMS.B32 to move all system 
related Logie into one place. It was extracted from RNODAT BLY which 
was at IDENT ~ at the time. This work was done by Ray Marshall on 
August 6, 1982. 

FUNCTIONAL DESCRIPTION: 


This routine obtains the system date and time, breaks it 
up into its constituents, and returns the results. 


FORMAL PARAMETERS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
: RUNOFF COMMAND == the command tab\er nto which the current system 
' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


i 
date and time w be stuffed. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 


MAP 
runoff_command : REF SRNO_CMD; ! Define control block data structure 


LOCAL 
TIME_32 : VECTOR (7,2); 


SYSSNUMTIM (TIME_32, 0); 'Get binary date as a short-word vector. 


' Convert the system's date and time to the structure setup 
: within our command tables: 


runof f_command([RNO$H_YEAR] 
runof f_command(RNO$SH TH] 


0 TES 
runof f_command(RNO$H_SECONDS 
END; 
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RNOVA as - DSR VMS Command Line Interfac 
v04- RNODAT = Get current system date and time 
000 
5E 10 ¢ 
7E p 
04 AE F 
000000006 gf 0 FB 
o § § ER 
88 oo EB 
; Routine Size: 31 bytes, Routine Base: S$CODES + OD2A 
: 1507 1619 1 XFI 
: 1508 1620 1 
: 1509 1621 1 END 
: 1510 1622 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes 
; $ 116 NOVEC, WRT, RD, 
;  LIBSKEYOS 32 NOVEC,NOWRT, RD 
; TLIBSSTATES 477 NOVEC,NOWRT, RD 
> “LIBSKEY1$ 194 NOVEC,NOWRT, RD, 
: SPLITS 716 NOVEC,NOWRT, RD 
> $CODES 3401 NOVEC,NOWRT, RD 
: Library Statistics 
: File Total aden 
> _$255$DUA28:(SYSLIB STARLET 32:1 9776 4 
> 7$255$pUA28:(SYSLIB TPAMAC | -4 42 9 
> 7$255$DUA28:(SYSLIBIXPORT.L32;1 59 é 
> 7$255$0UA28: CRUNOFF .SRCJDSRLI6.L32;1 1248 1 


; COMMAND QUALIFIERS 


’ 
e 


Kk 8 
10-8ep- 


a 


! End of 


Attribute 

+NOEXE, ,NOSHR, 
XE, SHR, 
EXE, 


;NOEXE ,NOSHR, 
EXE ,NOSHR 


Percent 


1986 93:09:54 


module 


Pages 
Mapped 


581 
14 
252 
86 


AX-11 Bliss-32 V4.0-74 
RUNOFF .SRCJRNOVMS .832; 


Processing 
Time 


60; 
00: 
0 


1.1 
0.1 
0.6 
00:01.0 


———_—----————_, 


RHE prove - DSR VMS Command Line intertoce 1b-5e sep- 138% 9: 39: 7 AX-11 Bliss-32 V4.0-7 Page $6 


NODAT = Get current system date and t -Sep- RUNOFF ..SRCJRNOVMS. B35: 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:RNOVMS/OBJ=OBJ$:RNOVMS MSRC$:RNOVMS/UPDATE=(ENH$:RNOVMS) 
Size: 3401 ¢ e + 1555 data bytes 
Run Time: 1:35. 
Elapsed Time: 3:09. 
Lines/CPU Min: 0 4 
Seem A Rigby 571 


a Used: 749 pages 
a ation Complete 
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NTIAL_ AND PROPRIET 


